9. Обръщение според възраст и пол

Sub LiveDemo()
    Dim title As String
    title = GetPersonalTitles(13.5, "m")

    Debug.Print title

End Sub

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

End Function