Выполнять код, пока все TextBox не будут заполнены - VB

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
 
Dim cnt As Control
        
    Do
        
        q% = 0
        
        For Each cnt In Me.Controls
        
            If InStr(LCase$(cnt.Name), "text") <> 0 Then
            
               If cnt.Text = "" Then
                  q% = -1
                  Exit For
               End If
               
            End If
     
        Next
        
        If q% = 0 Then Exit Do
        
        DoEvents
        
        Sleep 100
        
    Loop
    
    MsgBox "Все текстбоксы заполнены!"
 
End Sub