'Deklaration von Sleep einfügen
 Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As _
    Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
    'Definieren von Virtual Keys
    Const KEYEVENTF_KEYUP As Byte = &H2 'KeyUP
    Const VK_A = &H41
    Const VK_D = &H44
    Const VK_W = &H57
    Const VK_LBUTTON = &H1 'Linke Maustaste
    Const VK_RBUTTON = &H2
 
    keybd_event(VK_W, 0, 0, 0) 'Key down
    Sleep(1000)
    keybd_event(VK_W, 0, KEYEVENTF_KEYUP, 0) 'Key up