Posiblemente no cerraste el bloque IF despues de agregar el msgbox.
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Este procedimiento permite que se incerten, solo las teclas deseadas usando la Ascii.
If KeyAscii <> 8 Then 'Verifica si se presionó las teclas de direcciones.
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
MsgBox "Intentas introducir caracteres no deseados", vbCritical, "Caracter no válido"
End If
End If
End Sub