Visual Basic - Como se si archivo existe

Como se si un archivo existe, claro en codigo fuente
y como hago para saber si un archivo ya esta abierto

Gracias por la ayuda

Function VerDir(rutapas As String) As Boolean
On Error GoTo ErrExArch
x = GetAttr(rutapas)
VerDir = True
Exit Function

ErrExArch:
VerDir = False
Exit Function
End Function

solo le tienes que hacer mencion asi :

if verdir("c:\info.txt")=true then
archivo existe
else
no esta el archivo
endif