Code:
Dim opentxt As Double 
Dim parameter As String 
parameter = "C:\Program Files\Accessories\WordPad.exe " & App.Path & "\temp.txt" 

opentxt = Shell(parameter, vbNormalFocus)
Maybe because you forgot the .exe part? It works for me.