2. Намиране на по-голямото число

Sub Demo()
    Dim greater As Integer

    greater = GreaterNum(2, 2)

    Debug.Print greater

End Sub

Function GreaterNum(firstNum, secondNum As Integer)
    If firstNum >= secondNum Then
        'GreaterNum = firstNum
        MsgBox firstNum
    Else
        MsgBox secondNum
        'GreaterNum = secondNum
    End If
End Function