ArdentMan

Dim InputStr
InputStr = InputBox("请输入")
If IsEmpty(InputStr) Then
  MsgBox "InputStr没有被定义"
  Else
  If InputStr = vbNullString Then
    MsgBox "InputStr被定义为空值"
    Else
    MsgBox "InputStr值为：" & InputStr
  End If
End If
复制代码

IsEmpty函数是用来判断变量是不是被定义了
如果被定义了返回值为False（哪怕是空值）否则为True