主题：trim（）用法提示，未将对象引用设置到对象的实例

 Dim str As String
If InputValue(str, "注释内容","请输注释内容,如: '合格,不合格,通过,不通过'") Then
    If str Is Nothing Then
        messagebox.show("请输入内容")
    Else
        str = str.Trim()
        If str="" Then
            messagebox.show("请输入内容")
        Else
            Output.Show(str)
        End If
    End If
End If
实现空值和纯空格判断！