3. Четно или нечетно

Sub Demo()
    Dim result As String

    result = EvenOrOdd(2)

    Debug.Print result

End Sub

Function EvenOrOdd(num As Integer)
    If num Mod 2 = 0 Then
        EvenOrOdd = "even"
        'MsgBox "even"
    Else
        EvenOrOdd = "odd"
        'MsgBox "odd"
    End If
End Function