Private Declare Function SendInput Lib "user32.dll" _
(ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Type GENERALINPUT
dwType As Long
xi(0 To 23) As Byte
End Type
 
Private Type KEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
End Type
 
Private Const INPUT_KEYBOARD As Long = 1
Private Const KEYEVENTF_KEYUP As Long = 2
Private Const WM_SETTEXT As Long = &HC
 
Sub KeySend()
 
Dim GInput(2) As GENERALINPUT
Dim KInput As KEYBDINPUT
 
'Press 1
KInput.wVk = 49
KInput.wScan = 0
KInput.dwFlags = 0
GInput(0).dwType = INPUT_KEYBOARD
CopyMemory GInput(1).xi(0), KInput, Len(KInput)
 
'Release 1
KInput.wVk = 49
KInput.wScan = 0
KInput.dwFlags = KEYEVENTF_KEYUP
GInput(1).dwType = INPUT_KEYBOARD
CopyMemory GInput(2).xi(0), KInput, Len(KInput)
 
 
SetForegroundWindow hwndNotepad
SendInput 2, GInput(0), Len(GInput(0))
 
End Sub