Select Case txt1.Text
Case "1"
lbl1.caption="You Typed Choice 1"
Case "2"
lbl1.caption="You Typed Choice 2"
case "3"
lbl1.caption="You Typed Choice 3"
Else Case
lbl1.Caption = "This choice is not available! Make ur choice from 1 to 3 ONLY!!"
End Select