Conversione di un testo in codici ASCII esadecimali.

Il codice per convertire un file di testo nei corrispondenti codici ASCII espressi in notazione esadecimale (lo metto qui come mio promemoria).

Public Class Form1
    Dim b As Byte
    Dim esadecimale As String
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FileOpen(1, "C:\Users\Antonello\Desktop\dante.txt", OpenMode.Binary)
        Dim n As Integer = 1
        Do Until EOF(1)
            FileGet(1, b, n)
            n += 1
            esadecimale += Hex(b)
        Loop
        FileClose(1)
        Debug.Print(esadecimale)
    End Sub
End Class