Tambien puedes usar if
If TextBox1.Text = "10" Then
TextBox2.Text = "Eres un Crack"
ElseIf TextBox1.Text = "9" Then
TextBox2.Text = "Te queda muy poco"
End If
es mas largo pero creo que servira no?
Otra cosa:
Si quieres que solo se puedan ingresar numeros, entonces haz esto:
Primero crea 1 Modulo y en el codigo introduce esto:
Function SoloNumeros(ByVal Keyascii As Short) As Short
If InStr("1234567890", Chr(Keyascii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = Keyascii
End If
Select Case Keyascii
Case 8
SoloNumeros = Keyascii
Case 13
SoloNumeros = Keyascii
End Select
End Function
Esto va debajo de Form1:
Public Class Form1
Inherits System.Windows.Forms.Form
Public KeyAscii As Short
Ahora Pon en el Codigo de Tu TextBox, ve donde dice Declarations, y ponlo en el evento Keypress y pon esto;
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
keyascii = CShort(SoloNumeros(keyascii))
If keyascii = 0 Then
e.Handled = True
End If
Saludos