abrir archivo en VB6

[standby82]

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