Vba 输入框：类型不匹配错误

我在VBA中有一个Do-While循环，要求用户输入他们的公司用户ID。这是用来在他们的个人文件夹中查找文件夹的，其实没什么大不了的

我使用的是一个输入框，因为我不知道如何才能做到这一点：

Do
    filepath2 = Application.InputBox("Enter your User FDIC", "UFDIC")
    If filepath2 = False Then Exit Sub
    filepath3 = "C:\Users\" & filepath2 & "\Desktop\NSC\"
    Dir (filepath3)
Loop While Not Dir(filepath3) > ""

因此，基本上，这将要求用户提供UserID，如果用户选择按钮“Cancel”，它将退出sub。如果没有，它将获取UserID并确保它存在。 我得到了一个类型不匹配的错误，当它涉及到行

If filepath2 = False Then Exit Sub

因为它需要一个布尔值，我想

我应该使用输入框以外的东西吗

如果没有，我怎么打字检查呢？

我想出来了

我们必须改变

If filepath2 = False Then Exit Sub

到

只是更改为字符串。

无法使用Environ（“用户名”）返回正确的用户名？（可能作为默认值）不是通常的解决方案&

If filepath2 = "False" Then Exit Sub