Private Sub Command2_Click()
 
Dim sLine As String
 
Open "C:\Dokumente und Einstellungen\NF242\Eigene Dateien\Test\Erg1.txt" For _
  Input As #4
Open "C:\Dokumente und Einstellungen\NF242\Eigene Dateien\Test\Mitk.txt" For _
Output As #5
While Not EOF(4)
Line Input #4, sLine
If Trim(sLine) <> "" Then
Print #5, sLine
End If
Wend
Close #4: Close #5
Kill "C:\Dokumente und Einstellungen\NF242\Eigene Dateien\Test\Erg1.txt"
Name "C:\Dokumente und Einstellungen\NF242\Eigene Dateien\Test\Mitk.txt" As _
  "C:\Dokumente und Einstellungen\NF242\Eigene Dateien\Test\Erg1.txt"
End
End Sub