Programma convertitore di tags ultimato!

Bene, adesso ho dotato il mio programma convertitore della capacità di aprire direttamente il file modificato.
Inoltre, metto al riparo il file dal creare ex novo un file in caso il nome del file da convertire fosse sbagliato, verificando prima l'esistenza del file che gli si dà "in pasto":

Sub main(ByVal parametro() As String)
        If parametro.Length <> 0 Then
            If Dir(parametro(0)) <> "" Then
                Dim variabile As Byte
                My.Computer.FileSystem.DeleteFile("C:\Users\Io\Documenti\output.txt")

                FileOpen(1, parametro(0), OpenMode.Binary)
                FileOpen(2, "C:\Users\Io\Documents\output.txt", OpenMode.Binary)
                Dim n As Integer = 1, k As Integer = 1
                Do Until EOF(1)
                    FileGet(1, variabile, n)
                    Debug.Print(variabile)
                    If variabile = 60 Then
                        variabile = 38
                        FilePut(2, variabile, k)
                        k = k + 1
                        variabile = 108
                        FilePut(2, variabile, k)
                        k = k + 1
                        variabile = 116
                        FilePut(2, variabile, k)
                        k = k + 1
                        variabile = 59
                        FilePut(2, variabile, k)
                    Else
                        FilePut(2, variabile, k)
                    End If
                    n = n + 1
                    k = k + 1
                Loop
                FileClose(2)
                FileClose(1)
                Shell("notepad.exe C:\Users\Io\Documents\output.txt", AppWinStyle.NormalFocus)
            Else
                MsgBox("non esiste")
            End If
        Else
            MsgBox("nessun nome di file specificato!")
        End If
End Sub

Sembra funzioni alla perfezione!