ASCII code auslesen und in ziffern umwandeln!?

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim counter As Integer = 1



        Do
            Dim fmt As String = "000"  
            Dim code As Decimal = CStr(AscW(Mid(TextBox1.Text, counter, counter)))

            TextBox2.Text &= code.ToString(fmt)
            counter += 1
        Loop Until counter = TextBox1.Text.Length + 1
    End Sub

LG Noah
LG Noah
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim x As Integer = 1
        Dim counter As Integer = 0
        Dim y As Integer = 3
        Dim code As String = ChrW(Mid(TextBox1.Text, x, y))
        Dim code2 As Integer
        Dim ausgang As Char = "0"  
        Do

            code = (Mid(TextBox1.Text, x, y))
            code2 = CInt(code)
            ausgang = Chr(code2)

            TextBox2.Text &= code.ToString
            counter += 1
            x += 3
            y += 3

        Loop Until counter = TextBox1.Text.Length
    End Sub