Option Explicit On
Imports System
Imports System.IO
Module Module1
    Sub Main()
        Dim temp As String
        If System.IO.File.Exists(Command$) = False Then
            Exit Sub
        End If
        If " " & LCase$(Command$) & " " Like "*  *" Then
            MsgBox("Bitte Parameter angeben")
        Else
            Dim reader As IO.StreamReader
            reader = New StreamReader(Command$)
            Dim appendMode As Boolean = False
            Dim writer As New StreamWriter("c:\temp.txt", appendMode, _
              System.Text.UTF8Encoding.UTF8)
            temp = reader.ReadToEnd()
            writer.Write(temp)
            writer.Close()
            reader.Close()
            System.IO.File.Delete(Command$)
            System.IO.File.Move("c:\temp.txt", Command$)
        End If
        Exit Sub
    End Sub
End Module