[Resolvido]Erro na Função de Chamada do Teclado Virtual

Código:

Private Sub cmdTeclado_Click()
'Retirado do Repositório de Exemplos do Fórum Máximo Access - JPaulo
'Adaptado conforme Documentação da Microsoft - Jeferson de Paula
Dim RetVal As Double
    RetVal = Shell("C:\Windows\System32\Osk.exe", 1)
End Sub

#If VBA7 Then
'Access 2010 e 2013
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
'Access 2003 e 2007
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
#End If

Utilize a linha de chamada abaixo:

ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

Sucesso!