Time interval between lines of code

The number after Wait is in milliseconds so 1000 would be a delay of one second.

Wait 100
MouseClick 100, 100
Wait 1000
MouseClick 150, 200
Wait 500
MouseClick 200, 175
Wait 250
MouseClick 125, 150

The project has only a multiline textbox and a commandbutton.

Option Explicit

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
    ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, _
    ByVal dwExtraInfo As Long)

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
    ByVal y As Long) As Long

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const VK_CONTROL = &H11
Private Const KEYEVENTF_KEYUP = &H2
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4

Public Sub MouseClick(x As Long, y As Long)
    SetCursorPos x, y
    keybd_event VK_CONTROL, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command1_Click()
    Dim tmpData As String
    Dim cmds As New Collection
    Dim arrTmp() As String, i As Long, arrVal() As String
   
    Command1.Enabled = False
   
    tmpData = LCase(Trim(Text1.Text))
    If tmpData <> "" Then
        arrTmp = Split(tmpData, vbNewLine)
        For i = 0 To UBound(arrTmp)
            If arrTmp(i) <> "" Then
                arrVal = Split(arrTmp(i), " ")
                Select Case arrVal(0)
                    Case "mouseclick"
                        If UBound(arrVal) = 2 Then
                            MouseClick CLng(Left$(arrVal(1), Len(arrVal(1)) - 1)), CLng(arrVal(2))
                        Else
                            MsgBox arrTmp(i), vbCritical, "Incorrect Format"
                        End If
                       
                    Case "wait"
                        If UBound(arrVal) = 1 Then
                            Sleep CLng(arrVal(1))
                        Else
                            MsgBox arrTmp(i), vbCritical, "Incorrect Format"
                        End If
               
                    Case Else
                        MsgBox arrTmp(i), vbCritical, "Unknown Command"
                       
                End Select
            End If
        Next i
    End If

    Command1.Enabled = True
End Sub