Visual Basic - Tengo un problema con los text

tengo un text
y nesesito saber si en ese text ya hay una coma ( , ) como lo puedo saber ?

Combina las funciones len, mid y chr dentro de un ciclo for-next

for x= len(text1.text) to 1 step-1

cadena=mid(text1,text,x,1)
if cadena=chr(44) then
¡¡¡ encontraste la coma!!!!

<fin de texto>

yo puse esto que me dijiste :

Private Sub Command16_Click()
For x = Len(Text1.Text) To 1 Step -1
cadena = Mid(Text1, Text, x, 1)
If cadena = Chr(44) Then
Exit Sub
Else
Text1.Text = Text1.Text & ","
End If
Next x
End Sub

y me manda un error

Un ejemplo siempre explica mejor las cosas:

Private Sub Command1_Click()

Dim x As Integer
Dim cadena As String

For x = Len(Text1.Text) To 1 Step -1

cadena = Mid(Text1.Text, x, 1)

If cadena = Chr(44) Then
MsgBox "encontré una coma en la posición " & x
Exit Sub
End If

Next x

End Sub

saludos.
<fin de texto>

me sigue tirando el mismo error :

tengo esto :

Private Sub Command16_Click()
Dim x As Integer
Dim cadena As String
For x = Len(Text1.Text) To 1 Step -1
cadena = Mid(Text1, Text, x, 1)
If cadena = Chr(44) Then
MsgBox "Ya hay una coma": Exit Sub
Else
Text1.Text = Text1.Text & ","
End If
Next x
End Sub

Observa la sig linea:
cadena = Mid(Text1, Text, x, 1)
tiene una coma despues del text1, alli debe llevar un punto asi:
cadena = Mid(Text1.Text, x, 1)
ese es el error.

Cierto que la primera vez te lo puse asi porque me equivoque, pero si conoces las propiedades de los controles sabras que debe ser un punto, y en el ejemplo anterior iba corregido.

Intentalo, asi no falla.
saludos.
<fin de texto>

¿Has probado con : Instr(text1.text, ",") ?

Seguramente te dará la posición que ocupa la ',' si la hay. Caso contrario te dará como resultado 0 (cero).