간단한 프로그램 만들려고 햇는데 오류가 나네요 ㅠㅠ

Private Sub Command1_Click()
If MsgBox(당신은 남자입니까??, vbYesNo, 문제) = vbYes Then처음 버튼누르면이거 아니요 누르면
IfMsgBox(남자군요!! 당신은 잘생겻나요??, vbYesNo, 문제) = vbYes Then
MsgBox 니가?
Else
MsgBox 못생긴 오크년
Else 이게 오류가 계속나네요 ㅠㅠ
If MsgBox(여자군요!! 당신은 예쁜가요???, vbYesNo, 문제) = vbYes Then이게 나와야하는뎅
MsgBox 니가?
Else
MsgBox 못생긴 오크년
End If
End If
End Sub