Function FindLove (Byval GoodMan as Characters, FunnyMan as Characters)
Dim Ex as Absent, Ex2 as Dysfunctional, Ex3 as Snake

Set Ex = Still Unforgiven
Do Until Ex = Forgiven
Remember
He’s a jerk
Move on
Loop

Set Ex2 = Duplicitous
For each Ex2 in GoodMan
Kiss and say goodbye
Next Ex2

Set Ex3 = Dangerous
With Funnyman(Ex3)
Do Nothing
End With

Select Case GoodMan + FunnyMan

Case Married = True
Do until Married = False
“No, thank you.”
Loop

Case Lives With Her = True
Go to Case Married = True

Case Single and Attractive = True
Do until Committed = True
“Let’s take our time with this.”
Loop
If Long Distance Romance = True then
Check Marital Status
End if

Case Unemployed = True
Be patient
Stay friends
Listen
No, seriously, listen carefully
If Long Distance Romance = True Then
Check Marital Status
End If

Case Long Distance Romance = True
Go to Case Unemployed = True

Case Imaginary = True
Go out more often.

End Select

End Function