Dim x As Integer
Dim y As Integer
Dim z As Integer

x = 5

If x = 1 Then
z = 1
ElseIf x = 2 Then
z = 2
Else
z = 3
End If

Terminate