Private Function DirExists(DirPath As String) As Boolean
Dim CheckThisFile As String

    CheckThisFile = Dir(DirPath, vbDirectory)

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

Private Sub Command1_Click()
DirExists Text1

End Sub