Public Function deVar(ByVal Textstring As String)
testv1 = "12435"
 
 
    Aufteilung = Split(Textstring, "%")
    If UBound(Aufteilung) > 0 Then
        For x = 1 To UBound(Aufteilung)
            If x Mod 2 > 0 Then
                varfind = "%" & (Aufteilung(x)) & "%"
                varrep = Aufteilung(x)
                Textstring = Replace(Textstring, varfind, varrep)
                MsgBox varfind & "    " & varrep
            End If
        Next
    End If
 
    deVar = Textstring
End Function

________________________
www.cyberspeed.eu.tt