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

    Dim str As String
   
    If InputValue(str, "注释内容","请输注释内容,如: '合格,不合格,通过,不通过'") Then
        str = str.Trim()
        If str Is Nothing Then
        messagebox.show("请输入内容")
        Else
        Output.Show(str)

        end if

    end if

 

出现输入框后什么都没输入，上述代码提示“未将对象引用设置到对象的实例” 将“str = str.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
实现空值和纯空格判断！

谢谢