Dim tt(255) As Byte
        For i As Integer = 0 To 255
            tt(i) = i
        Next
        tt(31) = 44
        tt(56) = 68
 
        Dim wert As Byte
        Dim neuwert As Byte
 
        wert = 56
        neuwert = tt(wert) ' neuwert = 68
 
        wert = 123
        neuwert = tt(wert) ' neuwert = 123

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim byteconvert(255) As Byte
 
For i As Integer = 0 To 255
    'i kann hier nicht Byte sein,
    'weil i am Ende der Schleife auf 256 steht = unzulässig als Byte
    byteconvert(i) = CByte(i) 'explizite Umwandlung Integer -> Byte
Next i
 
'Explizite Festlegung des zugewiesenen Datentyps 
'(bei hart codierten Zahlen optional !!)
byteconvert(31) = CByte(44)
byteconvert(56) = CByte(68)
 
Dim oldbyte As Byte '= irgendwas 0-255
Dim neuwert As Byte
 
'Explizite Erweiterungskonvertierung des Index 
neuwert = byteconvert(CInt(oldbyte))
 
'Implizite Erweiterungskonvertierung des Index: Byte -> Integer
neuwert = byteconvert(oldbyte)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim tt(10) As Byte
tt(0) = CByte(&H44)
 
Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8
Dim c() As Char = enc.GetChars(tt, 0, 1)

Dim charreplacer As New Dictionary(Of Char, Char)
 
charreplacer.Add(ChrW(&H44), ChrW(33))
charreplacer.Add(ChrW(&H2501), ChrW(60))
charreplacer.Add(ChrW(&H2660), ChrW(61))
 
Dim text As String = "irgendein text"
 
For Each kvp As KeyValuePair(Of Char, Char) In charreplacer
    text = text.Replace(kvp.Key, kvp.Value)
Next kvp

Dim byt() As Byte = _
    {&H68, &H41, &H4C, &H4C, &H4F, &H20, &H66, &H4F, &H52, &H55, &H4D, &H21}
'hALLO fORUM!
 
Dim ascii_enc As System.Text.Encoding = System.Text.Encoding.ASCII
Dim test As String = ascii_enc.GetString(byt)
 
'Unicode setzt für Ascii-Werte ein Byte auf 0
Dim unicode_enc As System.Text.Encoding = System.Text.Encoding.Unicode
Dim byt_unicode() As Byte = unicode_enc.GetBytes(test)
 
Dim hex_unicode(test.Length - 1) As String
Dim cp As Integer = -1
For i As Integer = 0 To byt_unicode.Length - 1 Step 2
   cp += 1
   hex_unicode(cp) = Hex(byt_unicode(i)) & Hex(byt_unicode(i + 1))
Next i

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim bt(255) As Char
 
For i As Integer = 0 To 255
   bt(i) = ChrW(CByte(i) + &HE00)
Next i

        Dim NeuString As String = ""
        Dim bdata As Byte() = IO.File.ReadAllBytes("...")
 
        For i As Integer = 0 To bdata.Length - 1
 
            Debug.Print((bdata(i) + &H9E00).ToString("X4")) ' Nur zur Info
 
            NeuString &= ChrW(bdata(i) + &H9E00)
 
 
        Next
        Debug.Print(NeuString) 'Zur Info. Nicht deine Schrift!! 
 
        'Jetzt deine Schrift zuweisen und Neustring in die Listbox