MsgBox al encontrar "comas"

[julio_moe]

Hola, soy nuevo e el foro
Tengo un programa en Visual Basic 6, nesesito encontrar comas en txtNue.Text de un formulario para mandar un msgbox que le diga a mi usuario que no puede ingresar comas..
Anteriormente solo tenia un replace para cambiar las comas por nada, pero ahora deseo mandar un mensaje de error para que no se puedan escribir las comas y no se como buscar las comas:

-------------------------------------
Dim r As String
r = Replace(txtNue.Text, ",", "")
-------------------------------------

Private Sub botAgregar_Click()

If Trim(txtNue.Text) = "" Then
st = MsgBox("Escriba la palabra o frase a agregar", vbOKOnly, "Error")
txtNue.SetFocus
Else
If buscaPor = "evento" And IsDate(txtFecEve.Text) = False Then
st = MsgBox("No es una fecha correcta", vbOKOnly, "Error")
Else
Screen.MousePointer = 11
Y = InsertaCatalogo(buscaPor, txtNue.Text, modoCatalogo, txtFecEve.Text)
If Y = True Then
pivote = txtNue.Text
origen = "mantenimiento"
Screen.MousePointer = 0
MsgBox "Registro agregado satisfactoriamente"
Unload Me

End If
End If
End If

End Sub
------------------------------------------