Danzig. So hieß doch auch ne Band, richtig?

"Mother" is mir da in Erinnerung, aber naja egal.

Ich würde mit RegEx rangehen.

Ich schmeiß einfach mal einen Code in die Runde, wenn Fragen dazu sein sollten, einfach melden:

Option Explicit

Sub Main()
    
    Dim sSuchstring As String
    Dim mc          As Object
    Dim item        As Object
    
    sSuchstring = "(GKV), Leistungen nach § 13b UStG ohne Vorsteuerabzug P S/AV 3153 Erhaltene Skonti aus Leistungen,     'um diese Nummern geht es"
    
    '*** Reguläre Ausdrücke
    With CreateObject("VBScript.Regexp")
        '*** Zahlen in einer Collection sammeln
        .Pattern = "[0-9]+"
        .Global = True
        
            '*** Prüfen, ob Ergebnis zustandekommt
            If .Test(sSuchstring) = True Then
                
                '*** Collection anlegen und Zahlen sammeln
                Set mc = .Execute(sSuchstring)
                                    
                '*** alle Zahlen durchlaufen (<== bzw hier, in Spalten schreiben)
                For Each item In mc
                    Debug.Print item
                Next
            End If
    End With
    
    
End Sub