Ecco le basi del mio convertitore!

Fatto!.

Non ricordavo come avevo risolto il problema l'altra volta con il VB6, e il fatto di avere a che fare con il VB 2010 mi inibiva psicologicamente, ma ora ho ricostruito perfettamente la procedura.
Ecco il prototipo del mio convertitore, al quale basta solo sostituire i codici ASCII per averlo funzionante sulle parentesi angolari da sostituire con le sequenze di escape < e >

Module Module1
    Sub main()
        Dim variabile As Byte
        FileOpen(1, "C:\Users\Io\Documents\file.txt", 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 = 65 Then
                variabile = 66
                FilePut(2, variabile, k)
                variabile = 67
                k = k + 1
                FilePut(2, variabile, k)
                variabile = 68
                k = k + 1
                FilePut(2, variabile, k)
            Else
                FilePut(2, variabile, k)
            End If
            n = n + 1
            k = k + 1
        Loop
    End Sub
End Module

Per ora questo sostituisce una A con la sequenza BCD in un nuovo file chiamato output.txt.
Funziona! Sono soddisfatto!