MsgBox al encontrar "comas"

[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