How would I take this sub and turn it into a flow chart that I can read?

Sub DatingGame()

Dim P As Integer
Dim C As Integer

P = InputBox("How is his/her personality on a scale of 1 to 5?")

If P < 3 Then
  MsgBox "Don't date him/her?"
ElseIf P = 3 Then
  C = InputBox("How cute is he/she?")
    If C < 3 Then
      MsgBox "Don't date him/her/"
    Else
      MsgBox "As least one date won't hurt."
    End If
  Else
    MsgBox "Definitely date him/her."
End If


End Sub