Zitat:

das Problem ist nicht der Code aus den Tipps & Tricks, sondern die Datei selbst. Die Leerzeichen nach jedem normalen Zeichen stehen bereits in der Datei. Nachfolgend ein Code, mit dem sich der Inhalt der Datei korrekt darstellen lässt:

Dim F As Integer
Dim sBuffer As String
Dim nByte() As Byte
Dim i As Long
 
F = FreeFile
Open "LaDok.sql" For Binary As #F
ReDim nByte(LOF(F) - 1)
Get #F, , nByte
Close #F
 
sBuffer = ""
For i = 1 To UBound(nByte) + 1
  If i Mod 2 <> 0 Then
    sBuffer = sBuffer & Chr$(nByte(i - 1))
  End If
Next i

Zitat:

Schick' mir die Datei einfach einmal per EMail