Imports System

​

Imports System.Text

​

Public Module Module1

    Public Sub Main()

        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)

        console.WriteLine(str2)

    End Sub

End Module

​

​