Visual Basic - bUSCAR EN UN TEXTBOX

Hola Buenas
lo ke yo queria haces es que teniendo un textbox impidar poner en el textbox mas de una coma
se que con el keyprees se impide de ke entre el codigo ascii que quieras pero yo kiero dejar entrar el primero y a partir de hay nada
.
es una chorrada pero es ke soy novato

En el evento KeyPress del control verificas si ya existe la coma dentro del texto...
Si ya existe, entonces cancelas el KeyAscii poniendole 0...
Si no, pues lo dejas pasar

El ver si ya existe el caracter lo haces con la funcion InStr()

posicion = InStr( numPosDesdeDondeBuscar, strTextoEnElQueQuieresBuscar, strTextoQueDeseasLocalizar)

Si la posicion retornada es menor a 1, el texto que buscas no se encuentra...
Si es mayor a 0, entonces indica la posicion dentro del Texto donde esta localizada la cadena buscada...

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim nPos As Integer

If Chr(KeyAscii) = "," Then
If InStr(1, Me.Text1.Text, ",") > 0 Then
KeyAscii = 0
End If
End If
End Sub