Te pongo dos formas...
Código:
If Trim(Text1) = "" then
MsgBox "Por favor, ingrese un numero"
Exit Sub
End If
If IsNumeric(Text1) = False Then
MsgBox "Solamente estan permitido el ingreso de numeros"
Else
FormX.show
End if
La segunda forma con if anidados.
Código:
If Trim(Text1) = "" then
MsgBox "Por favor, ingrese un numero"
else
If IsNumeric(Text1) = False Then
MsgBox "Solamente estan permitido el ingreso de numeros"
else
FormX.Show
End If
End If