Private Sub Command1_Click()
Dim i As Long
Dim s As String
For i = 1 To 1000
DoEvents
If (i Mod 37) = 0 Then s = s & CStr(i) & " "
Next i
MsgBox s
End Sub