Yo, si fuera tu me dajaba de case y keyascii, y utilizaba la funcion mid y right
aquí te va:
Cita: Private Sub titulo_Change()
If Mid(titulo.Text, 1, 1) = "¡" Or Mid(titulo.Text, 1, 1) = "¿" Then
titulo.Text = Right(titulo.Text, Len(titulo.Text) - 1)
MsgBox " Por preservar el orden alfabético, evite utilizar los signos" & vbCrLf & "de interrogación o exclamación al comienzo del cuadro", vbCritical + vbOKOnly, " Consejo para cuadro Título"
titulo.SetFocus
End If
End Sub
Salu2