Private Function editxml(xmlFolder, token As String, newvalue)
Dim fso, sInhalt As String, sInhaltSplit() As String, sInhaltNew, xmlFile, _
  strZieldatei
Dim finestvalue
File1.Path = xmlFolder
File1.Pattern = "*.xml"
xmlFile = File1.List(0)
strZieldatei = xmlFolder & "\" & xmlFile
Open strZieldatei For Binary As #1
sInhalt = Space$(LOF(1))
Get #1, 1, sInhalt
sInhaltSplit = Split(sInhalt, vbCrLf)
If token = "disptext" Then
    sInhaltSplit(4) = vbTab & vbTab & "<" & "display-text" & ">" & newvalue _
      & "<" & "/" & "display-text" & ">"
End If
sInhaltNew = Join(sInhaltSplit, vbCrLf)
Close #1
Open strZieldatei For Binary As #1
Put #1, 1, sInhaltNew
Close #1
End Function