XL 2016 Ouvrir clavier virtuel en VBA7 (win10)

Essayez ceci, cela fonctionne sur mon Pc, mais il a fallu que je dise à mon Anti-virus de ne pas bloquer les scripts lancés par Excel :

Salut, j'ai trouvé ceci Open On Screen Keyboard in Windows 10 via VBA

Merci à vous pour vos réponses plus que rapides !!

@fanch55 : merci mais j'avais déjà essayé ce code, même erreur...
@kiki29 : j'ai trouvé un bout de code qui fonctionne...finalement...grâce à ton lien....

J'ai copié le code ci-dessous, au cas où quelqu'un en aurait besoin :

Option Explicit
Dim lngPtr As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Call Wow64DisableWow64FsRedirection prior to calling ShellExecute and Wow64RevertWow64FsRedirection, immediately after.
Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean
Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean

Private Function ShowKeyboard()
Call Wow64DisableWow64FsRedirection(lngPtr)
ShellExecute 0, "open", "osk.exe", "", "", vbNormalFocus
Call Wow64RevertWow64FsRedirection(lngPtr)
End Function

Private Function HideKeyboard()
Call Wow64DisableWow64FsRedirection(lngPtr)
ShellExecute 0, "open", "tskill", "osk", "", vbHidden
Call Wow64RevertWow64FsRedirection(lngPtr)
End Function

J'abuse....mais j'ai d'autres questions :

1) comment appelle-t-on une fonction ?
(je dois exécuter la fonction d'ouverture après un double clic sur mon textbox et la fonction fermeture quand je quitte l'userform)

2) comment définir l'emplacement de mon clavier à l'ouverture, pour qu'il ne cache pas la Textbox en question ?

Merci encore....