Reg Exp读取VBA中的电子邮件主题

Question

我使用该代码读取了我从Paypal获得的电子邮件主题中的一些信息。但是现在贝宝改变了主题，我的代码无法再次使用，我忘记了如何更改reg exp ...

With Reg2
    .Pattern = "Artikelnumme\(.*?) \s(.*?)\-(.*?) \((.*?)\)"
End With

If Reg2.Test(bText) Then

    Set N1 = Reg2.Execute(bText)
    For Each N In N1
       pText = Trim(N.SubMatches(1))
       pText2 = Trim(N.SubMatches(3))
       pText3 = Trim(N.SubMatches(2))

电子邮件主题如下： Artikelnummer 222544775641 – Sofortzahlung erhalten von test1234（test1234@gmx.de）

我想要的是号码222544775641是pText，电子邮件地址test1234@gmx.de应该在pText2中。

感谢您的帮助