Option Explicit
 
Private Sub Command1_Click()
 
Dim i As Integer
Dim strFile As String
Dim strRtn As String
Dim intFreeFile As Integer
 
intFreeFile = FreeFile
 
Open "D:Test.123" For Binary As #intFreeFile
    strFile = Input(LOF(intFreeFile), #intFreeFile)
Close #intFreeFile
 
For i = 1 To Len(strFile)
    If Asc(Mid(strFile, i, 1)) <> 0 Then
        strRtn = strRtn & Mid(strFile, i, 1)
    End If
Next i
 
intFreeFile = FreeFile
 
Open "D:Test.NEU" For Output As #intFreeFile
    Print #intFreeFile, strRtn
Close #intFreeFile
 
Beep
MsgBox "Vorgang beendet!", vbInformation
 
End Sub