Visual Basic - error al abrir

tengo un problema con un input. mi programa guarda los datos. con un output y lo abre con un input pero si el archivo no existe da error ...como soluciono esto....que si no existe el archimo me de un mensage en ves de cancelar la aplicacion

Dim sArch As String, sMens As String
sArch = "c:\Temp.txt"
If Len(Dir$(sArch)) Then
sMens = "El archivo existe"
Else
sMens = "El archo NO existe"
End If
MsgBox sMens
espero que te sirva.