Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

No Format
Sub Test()
Dim I As Integer
Dim TestEven As Boolean

'I = 1
'I = 2
Test
Even = IsEven(I)
If Even = True Then
    MsgBox "Even"
ElseIf Even = False Then
    MsgBox Test "Odd"
End If

End Sub