خواندن مقدار بین پرانتز در یک تکست باکس

[HM2020]

سلام

چطور میتونم مقدار بین پرانتز در یک تکست باکس رو بخونم.

مثلا:



Ali reza (123) Akbar (690) ehsan ...


چطور مقدار بین پرانتز ها رو بخونم بین پرانتز میتونه هرچی باشه.

با تشکر

[damanpak]

سلام
اطلاعات داخل پرانتزها رو توی آرایه میریزه و در آخر نشون میده
Dim arr(0) As String, j As Integer = 0, i As Integer, k As Integer, tmp As Boolean = False
While tmp = False
k = InStr(k + 1, TextBox1.Text, "(") + 1
i = InStr(i + 1, TextBox1.Text, ")")
arr(j) = Mid(TextBox1.Text, k, i - k)
j += 1
If InStr(k + 1, TextBox1.Text, "(") = 0 Then
tmp = True
Else
ReDim Preserve arr(UBound(arr) + 1)
End If
End While
For i = 0 To UBound(arr)
MsgBox(arr(i))
Next