Visual Basic - abrir archivo en VB6

Hola

Tengo la siguiente duda. He creado un programilla que me abre un archivo .htm cuyo nombre se lo meto mediante atributos de dicho programa. Ejemplo

Si ejecuto el programa1.exe 123456 me abre el archivo 123456.htm de una hubicacion ya especificada.

El problema que tengo es que no se como hacer que me salga un mensaje de error si no exixte el archivo a abrir.

Aqui os pongo el codigo usado:

Public Sub EjecutarArchivos(Direccion As String)
Dim ret As Variant
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Direccion), 1)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error de Ejecución"
End Sub
--------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim valor As String
valor = Command
valor = "c:\" & valor & ".htm"
Text1.Text = valor
EjecutarArchivos valor
End Sub

El problema es que aunque el archivo no exista, no me sale el mensaje de error, simplemente me muestra el contenido de valor en el text 1 y ya.

Espero que alguien me ayude.
Saludos

Puedes utilizar lo siguiente:
dim lcArchivo as string

If ExisteArchivo(lcArchivo) Then
tu codigo...bla..bla..bla
else
msgbox "Archivo no existe",vbinformation,"Aviso"
endif
end sub


privateFunction ExisteArchivo(ByVal Archivo As String) As Boolean
ExisteArchivo = Dir(Archivo) <> vbNullString
End Function


Suerte !!!

Usa la función Dir, si función Dir devuelve "" el fichero no existe.

Gracias Pedro Luis, lo probare.

Muchas gracias