vb提取括号里面的字符

Private Sub CommandButton1_Click()
Dim str As String
Dim arr() As String
Dim i As Integer

Dim intStart As Integer
Dim intEnd As Integer

'测试用
'-----------------------
ReDim arr(2)
arr(0) = "(Gsdgsd)"
arr(1) = "g($#@$),58"
arr(2) = "(125)35"
'-----------------------

'str = TextBox1.Text
'arr = Strings.Split(str, vbNewLine)

For i = 0 To UBound(arr)
intStart = InStr(arr(i), "(")
intEnd = InStr(arr(i), ")")
If intStart > 0 And intEnd > 0 And intEnd > intStart Then
arr(i) = Strings.Mid(arr(i), intStart + 1, intEnd - intStart - 1)
End If
Next i

str = ""
For i = 0 To UBound(arr)
str = str & arr(i) & vbNewLine