Private Sub Decode()
  Dim j As Integer, X As String, Y As String
 
  zeile = Split(datei, vbCrLf) 'Dateiinhalt in Zeilen zerlegen
 
  'Jede Dateizeile einzeln entschlüßeln
  For i = LBound(zeile) To UBound(zeile)
    For j = 1 To Len(zeile(i))
      X = Mid(zeile(i), j, 1)
      X = Asc(X) + 9
      X = X Mod 255
      Y = Y & Chr(X)
    Next
    ReDim Preserve z(i): z(i) = Y: X = "": Y = ""
  Next
End Sub