ebcasc1("123")

    Private Function ebcasc1(ByVal zk As String) As String
 
        Dim encoding As System.Text.Encoding = System.Text.Encoding.GetEncoding( _
          37)
        Dim ebcdic() As Byte = encoding.GetBytes(zk) ' EBCDIC &HF1 &HF2 &HF3 
        ebcasc1 = encoding.GetString(ebcdic) ' Wieder String "123"
 
    End Function

________
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