Visual Basic - Shell

Compañeros estoy realizando una aplicación en VB6 y dicha aplicación llama a otra y para esto estoy utilizando la función "Shell", el cual funciona muy bien, pero necesito una funcion que cuando busque el ejecutable en la ruta predeterminada y no la consiga, me pida en una ventana que especifique la ruta donde se encuentra el ejecutable actualmente.

Este es el botón que cuando hago click en él, llama a la otra aplicación, la otra aplicación de llama "Etiquelas.exe" y se encuantra en la carpeta "Etiquetas" que esta en C: y dentro de esta carpeta esta el ejecutable "Etiquelas.exe", pero si yo cambio la ubicación de la carpeta "Etiqueta" el programa me debe decir que no consiguio la ruta y me pide que coloque la nueva ruta para ubicar el ejecutable:

Private Sub Command3_Click()
Shell "C:EtiquetasEtiquetas.exe", vbNormalFocus
End Sub

hola Jhonny Kahwati aqui esta el codigo que solicitaste espero te sea de utilidad en tu proyecto, si necesitas ayuda comunicate a mi mail
[email protected]
Dios te bendiga
Notas:
es muy provable que no aparescan las diagonales de los path despues de enviar este mensaje(ojo)

este es el codigo que pediste jhonny
use:
un command1
un Form1
un Form2
------------------------------------------------------------------------------------
Dim validar As Boolean

Private Sub Command1_Click()
'Set ejecutar = CreateObject("wscript.shell")
existe
If validar = True Then
'ejecutar.run "C:EtiquetasEtiquetas.exe", vbNormalFocus
Shell "C:EtiquetasEtiquetas.exe", vbNormalFocus
Exit Sub
Else
form2.Show
End If
End Sub

Rem procedimiento para validar
Sub existe()
Dim route As String
route = "C:EtiquetasEtiquetas.exe"
If Len(Dir(route)) <= 3 Then
validar = False
Exit Sub
Else
validar = True
End If
End Sub
------------------------------------------------------------------------------------