My new style

Many days ago I used the same structure to describe my life style, and I wonna want to change some word, but I cannot. Now it is  time to change it!

Sub MyLife()
Dim i As Boolean
i = 0: Do Until i = 2: i = i + 1
MsgBox "She Love Me!": Loop
MsgBox "She DON'T Love Me!"
End Sub