Habs jetzt so gelöst das ich das ganze halt als String behandle und es total auseinanderschneide. Zur Erinnerung nochmals, das war der String:

OrderNumberText="ET_<xsl:value-of select="@EquipmentClassName" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>_<xsl:value-of select="@Name" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>_<xsl:value-of select="@CurrentDateTime" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"></xsl:value-of>" Dim StrAnfang As String

Und hier mein Code:

        Dim StrEnde As String
        Dim StrNext As String
        Dim rest1 As String
        Dim wert1 As String
        
        'Definiere Wert 1
        StrAnfang = InStr(1, myValue, "Select", 1)
        StrEnde = InStr(26, myValue, Chr(34), 1)
        StrNext = InStr(50, myValue, "</xsl:value-of>", 1)
        
        laenge = StrEnde - StrAnfang
        wert1 = Mid(myValue, StrAnfang, laenge)
        wert1 = Replace(wert1, "select=" & Chr(34), "")
        
        'Speichere Rest in Variable
        StrNext = StrNext + 16
        rest1 = Mid(myValue, StrNext)
        
        'Definiere Wert2
        StrAnfang = InStr(1, rest1, "Select", 1)
        StrEnde = InStr(26, rest1, Chr(34), 1)
        StrNext = InStr(45, rest1, "</xsl:value-of>", 1)
        
        laenge = StrEnde - StrAnfang
        wert2 = Mid(rest1, StrAnfang, laenge)
        wert2 = Replace(wert2, "select=" & Chr(34), "")
        
        'Speichere Rest in Variable
        StrNext = StrNext + 16
        rest2 = Mid(rest1, StrNext)
        
        'Definiere Wert 3
        StrAnfang = InStr(1, rest2, "Select", 1)
        StrEnde = InStr(26, rest2, Chr(34), 1)
        StrNext = InStr(45, rest2, "</xsl:value-of>", 1)
        
        laenge = StrEnde - StrAnfang
        wert3 = Mid(rest2, StrAnfang, laenge)
        wert3 = Replace(wert3, "select=" & Chr(34), "")

Das ergibt dann die folgenden 3 Werte:

- @EquipmentClassName

- @Name

- @CurrentDateTime

Vielleicht hiflt es ja noch jemanden! Enjoy!