7,785
社区成员




Option Explicit
Private Function getvalue(ByVal s As String) As String
Dim i As Long
i = InStr(1, s, "=")
getvalue = Trim(Mid(s, i + 1))
End Function
Private Sub Command1_Click()
Debug.Print getvalue("AAAAAABBBABABABABBA anab=70 ")
End Sub