Jag får inte detta att funka...
Det blir bara massa konstiga tecken....


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub SkrivText(textData As String)
Dim bScan1 As Byte
Dim dwFlags1 As Byte
Dim dwExtraInfo1 As Byte
For a = 1 To Len(textData)
keybd_event Asc(Mid(textData, a, 1)), bScan1, dwFlags1, dwExtraInfo1
Next
End Sub

Jag har kollat upp funktionen och tror att du har missuppfattat den.
Här är ett exempel från http://www.vbapi.com:

' This code is licensed according to the terms and conditions listed here.

' Simulate the user pressing Alt+Space followed by N. This
' key combination will minimize the active window.

' Hold the Alt key while typing Space.
keybd_event VK_MENU, 0, 0, 0 ' press Alt
keybd_event VK_SPACE, 0, 0, 0 ' press Space
keybd_event VK_SPACE, 0, KEYEVENTF_KEYUP, 0 ' release Space
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 ' release Alt

' Type the N key.
keybd_event VK_N, 0, 0, 0 ' press N
keybd_event VK_N, 0, KEYEVENTF_KEYUP, 0 ' release N


Läste också att Keybd_event är ofullständig och att man hellre ska använda SendInput funktionen (som du också kan läsa om på vbapi.com).


Hoppas att det hjälpte.