Utilizacao do case no visual basic:

Select Case variavel
Case 1
……msgbox “1”
Case 2
……msgbox “2”
Case 3
……msgbox “3”
End Select

vlw