Icono del escritorio para abrir un fichero

Hola, necesito un programita para W7 con un icono en el escritorio que al pulsarlo me pida el nombre por en que empieza un fichero y pulsar Intro. Al pulsar Intro me lo tiene que buscar en ciertas carpetas de varios servidores (a ser posible que yo pueda configurar) y abrirlo en modo lectura sea de la extensión que sea (Office 2010 y PDF en general).

Yo he hecho algo en ACCess pero no va muy bien.

Private Sub numero_de_ensayo_DblClick(Cancel As Integer)
On Error GoTo Err_Comando48_Click
Dim stDocName As String
Dim stDocCamino As String
Dim ret As Integer
stDocCamino = "J:\Ensayos Lab Central\"
If Left((numero_de_ensayo), 2) <> "MZ" And Left((numero_de_ensayo), 2) <> "AZ" Then GoTo Etiq_48
stDocCamino = "O:\PROTOTIPOS\Ens MZ\"
Etiq_48:
stDocName = Dir(stDocCamino & Trim$(numero_de_ensayo) & "*.*")
If stDocName <> "" Then GoTo Etiq_48_a
stDocCamino = "J:\Ensayos Lab Central\Ensayos Antiguos\"
stDocName = Dir(stDocCamino & Trim$(numero_de_ensayo) & "*.*")
If stDocName = "" Then GoTo Err_file
Etiq_48_a:
ret = ShellExecute(Me.hwnd, "open", stDocName, "", stDocCamino, resp)
Select Case ret
Case Is > 32 'Correcto
Case 2 'No existe el fichero
Err_file:
MsgBox "No ha sido posible encontrar el fichero de ensayos especificado"
End Select
Exit_Comando48_Click:
Exit Sub
Err_Comando48_Click:
MsgBox Err.Description
Resume Exit_Comando48_Click
End Sub