Private Function FileExists(filename As String) As Boolean
Dim CheckThisFile As String

    CheckThisFile = Dir(filename, vbNormal)

    If CheckThisFile = "" Then
        FileExists = False
    Else
        FileExists = True
    End If
    Label1 = FileExists
End Function

Private Sub Command1_Click()
FileExists Text1

End Sub