Dim nStart As Integer
        Dim x As String = "9954" '= Deine Variable. Bitte anpassen!!!
        Dim nFilter As String
        Dim nFilter_entfernen As String
        Dim sVariable As String
        Dim nEntfernen As Integer
        Dim znFertig As String
        Dim zFertig As String
        nFilter = Mid(Label1.Text, 5, 4)
        nFilter_entfernen = Label1.Text.Replace(nFilter, Nothing)
        nStart = Label1.Text.IndexOf("00000000") + 4 '57
        sVariable = nFilter_entfernen.Insert(nStart, x)
        nEntfernen = sVariable.IndexOf(x) + x.Length
        znFertig = sVariable.Remove(nEntfernen, 8)
        zFertig = znFertig.Insert(nEntfernen, nFilter)
        Label2.Text = zFertig