编译时提示"无效限定符",高手赐教!

[richzhang]

代码如下

Private Function GetStr1(ByVal PropStr1 As String, ByVal SubStr1 As String) As String
Dim a, b, c As Integer
Dim strR As String
SubStr = SubStr1 + "="
a = InStrRev(PropStr1, SubStr) + Len(SubStr1) - 1
c = Len(PropStr1)
strR = PropStr1.Substring(a, c - a)
Do
b = InStrRev(strR, ";")
If b <= 0 Then
Exit Do
End If
strR = Mid(strR, 1, b - 1)
Loop
Return
End Function

[richzhang]

不好意思,正确代码如下,编译时在第7行的PropStr处报错:无效限定符
Private Function GetStr1(ByVal PropStr As String, ByVal SubStr As String) As String
Dim a, b, c As Integer
Dim strR As String
SubStr = SubStr + "="
a = InStrRev(PropStr, SubStr) + Len(SubStr) - 1
c = Len(PropStr)
strR = PropStr.Substring(a, c - a)
Do
b = InStrRev(strR, ";")
If b <= 0 Then
Exit Do
End If
strR = Mid(strR, 1, b - 1)
Loop
Return
End Function

[bluesky23]

strR = PropStr.Substring(a, c - a)

PropStr类的SubString方法出错。
类代码是否方便贴出来

[junki]

跟你的数据内容有关系.