Simple Loop Question

[new_money]

I figured out all about DoEvents yesterday.

I'll try to explain:

Private Sub DoSomething()
   Text1 = "working"
   Do Until Text1 = "Quit"
        DoEvents
   Loop
   Text1 = "Ready"
End Sub

Private Sub Command1_Click()
    DoSomething
End Sub

Private Sub Command2_Click()
    Text1 = "Quit"
    Do Until Text1 = "Ready"
        DoEvents
    Loop
    MsgBox "Hello"
End Sub

It never gets out of the Do..Loop in Command2.

Any suggestions to fix this or even a different thought process would be greatly appreciated.