Visual Basic - Cómo conocer la ruta de un archivo

Necesito saber si se puede y cómo conseguir desde un aplicacion VB la ruta de un archivo ( por ejemplo el winword.exe) para poder aplicarla a un objeto shell sin tener que escribir la ruta en el codigo (que se obtenga sola al iniciar la aplicacion).

Te mando el código necesario para ejecutar un fichero con el programa asociado.

Public Const MAX_FILENAME_LEN = 260

Public Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long

Public Function Encuentra_Ejecutable(sfile As String) As String
Dim i As Integer, s2 As String


'Check if the file exists
If Dir(sfile) = "" Or sfile = "" Then
Encuentra_Ejecutable = ""
Exit Function
End If

'Create a buffer

s2 = String(MAX_FILENAME_LEN, 32)
'MsgBox s2
'Retrieve the name and handle of the executable, associated with this file
'MsgBox sfile
i = FindExecutable(sfile, vbNullString, s2)
'MsgBox i
If i > 32 Then
Encuentra_Ejecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
Else
Encuentra_Ejecutable = ""
End If

End Function

Lo único que debes hacer es realizar la llamada:

ruta = Encuentra_Ejecutable(<fichero a ejecutar>)

Espero que te sirva.