VBA String zerlegen

Dim myRegExp, myMatches, ResultString,rawData
rawData = "<Path>C:/Music/Abba/Abba Gold/Waterloo.mp3</Path>"  
Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Pattern = "<Path>.*/(.*.mp3).*</Path>"  
Set myMatches = myRegExp.Execute(rawData)
If myMatches.Count >= 1 Then
	ResultString = "*" & myMatches(0).SubMatches(0) & "*"  
Else
	ResultString = ""  
End If

SearchString = "<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>"  
Suche = "."  

' Suche den Punkt und gehe 3 Zeichen nach rechts -> jetzt haben wir das Position für das Ende des Dateinamens  
PositionEnd = InStr(1, SearchString, Suche)+3
'Suche vom Ende des Dateinamens rückwärts nach dem ersten "/" und gehe 1 Zeichen nach rechts -> Das ist die StartPosition des Dateinamens  
PositionStart = InStrRev(SearchString,"/",PositionEnd)+1  
'Nun wird der ganze Dateiname extrahiert. Die Länge ermitteln wir indem wir die Endposition von der Startposition abziehen  
filename = Mid(SearchString,PositionStart,PositionEnd-PositionStart)

Loesung = "*" & filename & "*"  

wscript.Echo Loesung

Sub SrString()
Dim string1 As String
Dim teilstring1 As Variant
Dim z As Integer
z = 1
string1 = "<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>"  
String2 = "<Path>C:/Music/Abba/Abba Gold/Waterloo.mp3</Path>"  
String3 = "<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>"  

Position = InStr(8, string1, Suche) 'sucht mir die Position wo der Punkt ist.  

teilstring1 = Split(string1, ".")  
Teil2 = Left(teilstring1(1), "3")  
Do
If (InStr(Right(teilstring1(0), z), "/") > 0) Then  
    Exit Do
End If
z = z + 1
Loop
Teil1 = Right(teilstring1(0), z - 1)
Teil1 = Teil1 & "."  

Lösung = Teil1 & Teil2

MsgBox Lösung 'Soll mir "Waterloo.mp3" ausgeben  
Lösung = "*" & Lösung & "*" 'Sternchen vor und hinter den String  
'benötigtes Ergbnis "*Waterloo.mp3*"  
End Sub

Right(DeinString,Len(DeinString)-2)

Mid(DeinString,3,Len(DeinString))

Sub LiedSuche()
    Dim endpos As Long
    Dim startpos As Long
    Dim Lösung As String
    
    String1 = "<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>"  
    String2 = "<Path>C:/Music/Abba/Abba Gold/Waterloo.mp3</Path>"  
    String3 = "<Path>C:/Music/money.mp3/Abba/Abba Gold/</Path>"  

    endpos = InStrRev(LCase(String1), ".mp3")  
    If endpos > 0 Then
        startpos = InStrRev(LCase(String1), "/", endpos)  
        lösung = "*" & Mid(String1, startpos + 1, endpos - startpos + 3) & "*"  
    Else
        MsgBox """.mp3"" not found"  
    End If
    MsgBox lösung
End Sub