dim str as String
dim objstr=x.Substring(1, Len(str) - 2)
'str是源字符串，objstr是已经去掉双引号的字符串，全角或半角都无所谓

但是如何识别全角的双引号啊？

Dim Str As String

If Asc(Microsoft.VisualBasic.Left(Str, 1)) = -24144 And Asc    (Microsoft.VisualBasic.Right(Str, 1)) = -24143 Then
            Dim objstr = Str.Substring(1, Len(Str) - 2)
End If
'这样应该没有问题了