Code: Select all
Dim As Integer X, Y, Z, U
If X > Z And Y > Z Then
U = 0
'Exit if '**** would not compile (err250)
ElseIf X > Z Then
U = 1
'Exit If
Else
U = 2
EndIf
Code: Select all
"error 250: Expected 'CONSTRUCTOR', 'DESTRUCTOR', 'DO', 'FOR', 'FUNCTION', 'OPERATOR', 'PROPERTY', 'SELECT', 'SUB' or 'WHILE', found 'if' in 'Exit if"