Dim FileName As String
   Dim FNr As Integer
   Dim s() As String, s1 As String
   Dim i As Long
  ' Dim aTime As Single
 
      aTime = Timer
 
      FileName = Dateiname2
      FNr = FreeFile
      Open FileName For Binary As #FNr
      s1 = Space$(LOF(FNr))
      Get #FNr, , s1
      Close #FNr
 
      s = Split(s1, Space(1))
      s1 = Space(UBound(s) + 1)
      For i = 0 To UBound(s)
         Mid$(s1, i + 1, 1) = Chr$(Val(s(i)) - 18)   <--- FEHLER!
      Next
      Text1.Text = s1

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD