'Convert String to Bytes
      	Dim hexString As String = txtOrgString.Text
        Dim array As Byte() = Encoding.ASCII.GetBytes(hexString)
        txtBytes.Text = BitConverter.ToString(array)

'Convert Bytes to String
        Dim sBytes As String = txtBytes.Text
        Dim bytes As Byte() = sBytes.Split("-"c).[Select](Function(x) Byte.Parse(x, Globalization.NumberStyles.HexNumber)).ToArray()
        txtNewString.Text = System.Text.Encoding.ASCII.GetString(bytes)