Visual Basic - Ayuda por favorr!!!!!!! con unos codigos

Hola amigos, tengo unos codigos para abrir archivos word y pdf creo y tengo algunos problemas, ojala me puedan ayudar.

Estoy haciendo un programa que al apretar un boton abra algunos de estos archivos. Pero tengo que empaquetar este programa en un autorun o en un ejecutable, el problema es que estos codigos abren el archivo desde la ubicacion en el disco duro. """"y ahora como lo ago para abrir estos archivos cuando lo empaquete en un ejecutable.

Y por ultimo tengo unos codigos que abren archivos. pero tienen problemas, ayudenme a solucionarlos por fiss...

[b]Etse marca un error, el 424 dice que falta un objeto.[/b]

Private Sub Command1_Click()
Dim wb As Object
Dim sPath As String
Set wb = CreateObject("Word.Basic")
' wb.ChDefaultDir "C:\", 0
sPath = App.Path
wb.ChDefaultDir sPath, 0 ' Si el doc está en el directorio de la aplicación
wb.FileOpen Name:="hola.doc"
wb.AppShow
Application.WindowState = wdWindowStateMaximize

End Sub

[b]y este codigo, aca el problema es que tengo que hacer 2 veces clic para abrir el PDF que sera?[/b]

En declaraciones....

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

Private Sub Command4_Click()

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\an22.doc") Then
lresult = ShellExecute(Me.hwnd, "open", "c:\hola.pdf", "", 0, SW_SHOWNORMAL)
End If

End Sub

[b]Bueno amigo independiente el codigo tengo el problema de que todos necesitan la ruta para abrir el codigo.[/b]

Saludos y gracias