一个正则表达式的问题

Question

如有一个记录:(12345)2323)12我用“（（.＊））”只能得到(12345)2323)
现在我要得到前面这个括号中(12345)应该如何写表达式？

Answer 1

Private Sub Command1_Click()
    Dim strTest As String
    Dim i As Integer
    
    strTest = "(12345)2323)12"
    For i = 1 To Len(strTest)
       If Mid(strTest, i, 1) = ")" Then
           MsgBox Left(strTest, i)
           Exit For
       End If
    Next
End Sub