Forms VisualBasic Script

Function ValidPath() As Boolean
    Dim fPath As String
    fPath = "c:\"
    If Dir(fPath, vbDirectory) = "" Or fPath = "" Then
        ValidPath = False
    Else
        ValidPath = True
    End If
End Function