Love x3

For Love As Feeling = Begin To End Step Now
Do While Not Found And Begin <>

vResult = LoveComboBox.Checked

If vResult = "Fail" Then
Found = True
MsgBox("Require Skill")
MsgBox("Require Luck")
MsgBox("Require Time")

Else
ResultLabel.Text = "Goal and Aim achieved. Happiness is on its way."
End If
Begin+=1
Loop

Do
Dim vLove As NOW() = (vDiffident/vNormal/vIndifferent/vWell)
Dim vSituations(-1) As String
vSituations = vLove.Split("/")

For vLove = 0 To vSituations.GetUpperBound(0)
vCurrent = vSituations(vIndex)

If vCurrent = vDiffident OR vCurrent = vIndifferent
MsgBox("Move On With Life")

Else
MsgBox("Good Job")
End If
Next

vCondition = InputBox("Enter Extra Circumstances")

vCurrentMaxSituation = vLove.GetUpperBound(0)
ReDim Preserve vLove(vCurrentMaxSituation + vCondition)
vCurrentMaxSituation += vCondition

Loop While vLove <> vDiffident And vLove<> vIndifferent

ResultLabel.Text = "Happiness can still be achieved."
Next