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 Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_LMENU As Long = &HA4
Private Const VK_NUMPAD0 = &H60

Private Sub SendChars(ByRef vsChars As String)
Dim i As Long
Dim sAsc As String
Dim iAsc As Long
Dim nKey As Long
  For i = 1 To Len(vsChars)
      keybd_event VK_LMENU, 0, 0, 0
      
      sAsc = "0" & Asc(Mid$(vsChars, i, 1))
      For iAsc = 1 To Len(sAsc)
          nKey = VK_NUMPAD0 + Mid$(sAsc, iAsc, 1)
          keybd_event nKey, MapVirtualKey(nKey, 0), 0, 0
          keybd_event nKey, MapVirtualKey(nKey, 0), KEYEVENTF_KEYUP, 0
      Next iAsc
      keybd_event VK_LMENU, 0, KEYEVENTF_KEYUP, 0
  Next i
End Sub 

;CONST 
      Keyeventf_keyup: Longint= 2;          {BYTE suffirait peut-être}
      Vk_lmenu: Longint= $A4;
      Vk_numpad0= $60;
      
PROCEDURE Sendchars(Vschars:String);
VAR
    I:BYTE;
    Sasc: String;
    Iasc:BYTE;
    Nkey: Longint;
Begin 
   I:=1;
   Iasc:=1;
   FOR I:=1 TO Length(Vschars) DO
   Begin
      Keybd_event( Vk_lmenu, 0, 0, 0);
      Sasc:= '0'+Inttostr(Ord(Copy(Vschars,I,1)[1]));
      FOR Iasc:= 1 TO Length(Sasc) DO
      Begin
         Nkey:= Vk_numpad0 + Strtoint(Copy(Sasc,Iasc,1));
         Keybd_event(Nkey, Mapvirtualkey(Nkey, 0), 0, 0);
         Keybd_event(Nkey, Mapvirtualkey(Nkey, 0), Keyeventf_keyup, 0);
      End;
      Keybd_event(Vk_lmenu, 0, Keyeventf_keyup, 0);
   End;
End;