MsgBox al encontrar "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