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
------------------------------------------

[lokoman]

Hola!!
Puedes usar la instrucción INSTR para ubicar si hay o no comas... es algo asi:

Código vb:

Dim TEST As Integer
    TEST = InStr(1, txtNue.Text, ",")
    If TEST <> 0 Then MsgBox "S e encontró una coma ',' en la posicion: " & TEST & " !!", vbInformation
 

Te devolverá la posicion inicial de la coma, si no te tre nada, es porque no hay comas

[julio_moe]

En caso de encontrar comas, necesito que regrese al txtNue.text pero entre mi bola de if's no encuentro donde ubicarlo

Private Sub botAgregar_Click()
--------------------------------------------------------

en este lugar me marca error sin if

Dim TEST As Integer
TEST = InStr(1, txtNue.Text, ",")
If TEST <> 0 Then MsgBox "Se encontró una coma ',' en la posicion: " & TEST & " !!", vbOKOnly, "Error"
txtNue.SetFocus

else
---------------------------------------------------
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

[pkj]

Necesitas organizar tu código. Solo te falta añadir otro "End If" al final o hacer algo asi:

Código vb:

Private Sub botAgregar_Click()
 
  If InStr(1, txtNue.Text, ",")<>0 then
    MsgBox "No se admiten comas (,) en el texto." & vbcrlf & "Corríjalo antes de seguir.", vbOKOnly, "Error"
    txtNue.SetFocus
    Exit Sub
  End If
 
  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
 

Saludos