Sendkeys error 70 permission denied in vb 6.0  on Windows 7 and above Versions

Solution 1 :

your UAC worked for SENDKEY problem in VB on windows 2007 platform. if your turn off your UAC you should be able to use that function.

if your UAC is off , then Turn it on again , Then , Turn it off again .... and RESTART your PC .... 
and make sure of using "Run as administrator " .... 

Solution 2 :

Write this code in the Module. The Problem is solved.

Code:

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys text, wait
   Set WshShell = Nothing
End Sub