RosettaCodeData/Task/Conditional-structures/VBA/conditional-structures-2.vba
2018-06-22 20:57:24 +00:00

16 lines
303 B
Text

Sub C_S_ElseIf()
Dim A$, B$
A = "Hello"
B = "World"
'test
If A = B Then Debug.Print A & " = " & B
'other syntax
If A = B Then
Debug.Print A & " = " & B
ElseIf A > B Then
Debug.Print A & " > " & B
Else
Debug.Print A & " < " & B
End If
End Sub