Option Explicit
Public Sub sucheP()
Dim sAlltext As String, found As String
Dim x As Long, e As Long, s As Long, erg As Double
sAlltext = ActiveDocument.Content
e = 1
s = 1
Do
s = InStr(e, sAlltext, "(", vbTextCompare)
If s = 0 Then Exit Do
e = InStr(s, sAlltext, "P)", vbTextCompare)
If e = 0 Then Exit Do
found = Mid(sAlltext, s + 1, e - (s + 1))
erg = erg + CDbl(found)
Loop Until s = 0 And e = 0
MsgBox erg
End Sub