программа приветствия

[Draiv93]

помогите плиз!

фрагмент программы:
Sub приветствие()
Dim p
p = InputBox("Введите вашу фамилию", "Ввод данных")
If p = Empty Then Exit Sub
If Right(p, 1) = "а" Then
MsgBox "Здравствуйте, госпожа " & p & "!"
Else
MsgBox "Здравствуйте, господин " & p & "!"
End If
End Sub

как дописать программу так,чтобы если фамилия заканчивалась на "о",то она спрашивала:вы мужчина? Вы женщина? и в связи с эти подбирала нужное приветствие!

[Swatch]

Добавить еще одну проверку.

If Right(p, 1) = "а" Then
MsgBox "Здравствуйте, госпожа " & p & "!"
Else
If Right(p, 1) = "о" Then
If MsgBox("Вы мужчина?", vbOKCancel) = vbOK Then
MsgBox "Здравствуйте, господин " & p & "!"
Else
MsgBox "Здравствуйте, госпожа " & p & "!"
End If
Else
MsgBox "Здравствуйте, господин " & p & "!"
End If
End If