Getting out of a running loop[Resolved]

[Inuyasha1782]

Well here is my current loop:

Dim Check As Boolean
For X = 0 To List1.ListCount - 1
For i = 0 To List2.ListCount - 1
user.Caption = List2.List(i)
pass.Caption = List1.List(X)
Check = LoginCheck(List2.List(i), List1.List(X))
If Check = False Then
Status.Caption = "Getting next user"
End If
Next i
Next X

It's length in time can be anywhere from 5 seconds to an hour, so it's neccesary to have one. Anyways, how would I exit this loop via a command button while it's running? I can't really think of a way to notify it to exit the loop. Any suggestions/ideas?