Dim FullWidthNumberSign As String = "#" TextBox1.Text = AscW(FullWidthNumberSign).ToString("X4") TextBox2.Text = System.BitConverter.ToString(System.Text.Encoding.Unicode.GetBytes(FullWidthNumberSign))