Wait = 0
Do Until Wait > 1000
...
DoEvents
Wait = Wait +1
...
Loop

Option Explicit
 
Private Sub Form_Load()
    With Me
        .Left = -1000
        .Top = -1000
        .Width = 0
        .Height = 0
    End With
End Sub
 
Private Sub timWait_Timer()
    If timWait.Tag <= 0 Then
        Unload Me
    Else
        timWait.Tag = timWait.Tag - 1
    End If
End Sub

Private Sub Command1_Click()
 
    frmMain.Print "Nun soll 1 Minute gewartet werden"
 
    frmWait.timWait.Tag = 100 '  Durchläufe * frmWait.timWait.Interval (= 1Min) 
    ' : Einstellen wielang gewartet werden soll
    frmWait.Show 1 ' Durch Modal = 1 wird der Code hier nun solange angehalten, 
    ' bei = 0 gehts gleich weiter (aber das wollen wir ja nicht! könnte aber 
    ' vielleicht auch eine interessante Eigenschaft haben)
 
    frmMain.Print "Hier geht es nun nach der Pause weiter :-)"
 
End Sub

Private Sub Timer1_Timer()
    If frmMain.Label1.BackColor = &H80000005 Then
        frmMain.Label1.BackColor = &H8000000D
    Else
        frmMain.Label1.BackColor = &H80000005
    End If
End Sub