Dim str1 as String= "รข, ??รฎ or รดu๐ง๏ฟฝ nโiโ๐ด++$-๐ฏโ!๐ช๐๐โผโ4โฃod;/โฌ'ยฎ;๐โ๐:โ)๐๐///๐1!@#"
Dim extendedAscii As Encoding = Encoding.GetEncoding("ISO-8859-1",
New EncoderReplacementFallback(String.empty),
New DecoderReplacementFallback())
Dim extendedAsciiBytes() As Byte = extendedAscii.GetBytes(str1)
Dim str2 As String = extendedAscii.GetString(extendedAsciiBytes)