Timer Question

[lintz]

I'm trying to get my app to wait 60 seconds before moving on to the next set of code. I tryed the below but it doens't wait 60 seconds as it should. Can someone help me out.

Option Explicit
Dim Counter As Integer
 
Private Sub Form_Load()
Timer1.Interval = 10000
Timer1.Enabled = True
Counter = "0"
Do Until Counter = 6
Timer1_Timer
Loop
 
MsgBox "60 seconds has passed"
End Sub
 
Private Sub Timer1_Timer()
Counter = Counter + 1
End Sub