Visual Basic - Verificar existencia de un archivo

1ª verificar si existe un directorio

Private Sub Command1_Click()
a = Dir$("C:\Windows", vbDirectory)
If a = "" Then
MsgBox ("El directorio no existe!")
Else
MsgBox ("El directorio existe!")
End If
End Sub

2ª verificar si existe un archivo

create un proyecto con label1 , label2 y command1
y copia el siguiente codigo
en la propiedad caption del label 1 escribe Si Existe
en la propiedad caption del label 2 escribe No Existe

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function BuscarWin() As String
Dim Cadena As String
Dim Res As Long
Dim WinDir As String
Cadena = String$(300, Chr$(0))
Res = GetWindowsDirectory(Cadena, Len(Cadena)) 'Busca el directorio de Windows
WinDir = Left$(Cadena, Res)
If Right(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
BuscarWin = WinDir
End Function

Private Sub Command1_Click()
Dim X
Dim strRuta As String
strRuta = BuscarWin() & "system\prueba.txt"

On Error GoTo Fallo
X = GetAttr(strRuta)
Label1.Visible = True

Exit Sub
Fallo:
Label2.Visible = True

End Sub