Dim a As Integer = 1
If a = 1 Then
  sub1
ElseIf a = 2 Then
  sub2
Else
  sub3
End If