Dim a As Integer = 1
Select Case a
  Case 1
    sub1
  Case 2
    sub2
  Case Else
    sub3
End Select