Windows API VisualBasic Script

Sub SKeys()
         Dim dReturnValue As Double
         dReturnValue = Shell("NOTEPAD.EXE", vbNormalFocus)
         AppActivate dReturnValue
         Application.SendKeys "Copy Data.xlsx c:\", True
         Application.SendKeys "~", True
         Application.SendKeys "%FABATCH%S", True
     End Sub