Hallo Henry!

Eigentlich warst du schon auf dem richtigen Weg. Die Zeile mit dem stext = obj.subject hätte m.M. nur noch rausgehört. Der Code folgt gleich. Da ich kein outlook habe und das Ganze wie in einem Outlook Makro aussieht, konnte/habe ich den ersten Teil mit den Deklarationen und der Applikation Auswahl nicht zum Test durchlaufen lassen - der Rest sollte passen.

Ein Hinweis noch. Bei der Prüfung innerhalb der Funktion ist die gesuchte Zeichenfolge nicht in "stext" sondern in "member" enthalten. Und der Code findet alle derartigen Zeichenfolgen (ggf. interessant für die spätere Bearbeitung). Sollte nur der erste Treffer genutzt werden dann .global = false setzen.

Sollten noch Fehler auftreten, einfach nochmal schreiben.

Public Sub Subject()
Dim obj As Object
Dim Sel As Outlook.Selection
Dim DoSave As Boolean
Dim NewSubject As String

If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set obj = Application.ActiveInspector.CurrentItem
Else
    Set Sel = Application.ActiveExplorer.Selection
    If Sel.Count Then
      Set obj = Sel(1)
      DoSave = True
    End If
End If
 
If Not obj Is Nothing Then
    stringsearch (obj.Subject)
End If
 
End Sub

Function stringsearch(stext As String)
Dim result As Variant   'the result of seach
Dim member As Variant   'the members of the search if it are more than one
Dim found As Boolean    ' if you found a string
Dim Regex As Object
found = False
 
 
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
    .Pattern = "\d[a-zA-Z]{4}\d{4}"             'this stand for digit - 4 letters (small or capital) and 4 digits
    .IgnoreCase = False
    .Global = True                              ' if you found a result it will look for further hits
         
    If .test(stext) Then found = True           ' you found a seached string
         
    Set result = .Execute(stext)                'starts the search
         
End With
Set Regex = Nothing
     
If found = True Then        ' you found a string
    For Each member In result
        'place here all you want to do with the found string f.e. save
        MsgBox "you got a hit!" & Chr(10) & member
    Next member
Else
    ' you found nothing and can send a message or do anything else
     MsgBox "IDIOT!"
End If
 
Set result = Nothing
     
End Function

Gruß Matthias