09. Greetings

Sub LiveDemo()
    Dim result As String
    result = ReturnGreeting("25", "f")

    Debug.Print result
End Sub


Function ReturnGreeting(age As Double, gender As String)
    If gender = "m" Then
        If age >= 16 Then
            ReturnGreeting = "Mr."
        ElseIf age < 16 Then
            ReturnGreeting = "Master"
        End If
    ElseIf gender = "f" Then
        If age >= 16 Then
            ReturnGreeting = "Ms."
        ElseIf age < 16 Then
            ReturnGreeting = "Miss"
        End If
    End If

End Function