Android Question Discard Unicode In Listview

Dim TestMarkerID() As Int = Array As Int( _
      4611,   4683,   4861,  11030,  39210,  47609,  47692,  47842, _
     54765,  55618,  61452,  76532,  82400,  94232,  99733, 105653, _
    110681, 115585, 132021, 138435, 140348, 143986, 144862, 160588, _
    160821, 177500, 185190, 188068, 190190 _
)

For Each MarkerID As Int In TestMarkerID
    Wait For(GetMarkerName(MarkerID)) Complete (MarkerName As String)    
    Log(MarkerID & " = """ & MarkerName & """")
Next


Sub GetMarkerName(MarkerID As Int) As ResumableSub
 
    Dim dlh As HttpJob

    dlh.Initialize("", Me)
    
    Dim MarkerURL As String = "https://www.hmdb.org/m.asp?m=" & MarkerID

    Dim WholePage As String = ""
    dlh.Download(MarkerURL)
    Wait For (dlh) JobDone(dlh As HttpJob)
    If(dlh.Success) Then
        WholePage = dlh.GetString2("Windows-1252")
    End If
    dlh.Release
    
    If WholePage.Length <> 0 Then
        Dim Temp As String = WholePage
        
        Dim I As Int = Temp.ToUpperCase.IndexOf("<TITLE")    'Marker name is HTML title
        If I >= 0 Then
            Temp = Temp.SubString(I)
            I = Temp.IndexOf(">")
            If I >= 0 Then
                Temp = Temp.SubString(I + 1)    'after the closing ">"
                I = Temp.ToUpperCase.IndexOf("</TITLE")
                If I >= 0 Then
                    Temp = Temp.SubString2(0, I)
                    
                    'better do some basic tidy-ups ?
                    Temp = Temp.Replace("<U>", "").Replace("</U>", "").Replace("<u>", "").Replace("</u>", "")
                    Temp = Temp.Replace("<B>", "").Replace("</B>", "").Replace("<b>", "").Replace("</b>", "")
                    Temp = Temp.Replace("<I>", "").Replace("</I>", "").Replace("<i>", "").Replace("</i>", "")

                    Return Temp
                End If
            End If
        End If
    End If

    Return "!!!"    'or some other indication that couldn't get marker name

End Sub

Waiting for debugger to connect...
Program started.
4611 = "Lincoln’s Farewell to Springfield Historical Marker"
4683 = "Victory, World War I Black Soldiers’ Memorial, a War Memorial"
4861 = "Lincoln’s Tomb Historical Marker"
11030 = "“You can fool all the people part of the time . . .” Historical Marker"
39210 = "The Burlington Zephyrs / Articulated Trains Historical Marker"
47609 = "Old Town’s Entrepreneur Spirit (#1) Historical Marker"
47692 = "“Hubbard’s Folly” Historical Marker"
47842 = "“Rites of Spring” Historical Marker"
54765 = "Abraham Lincoln and the Talisman Historical Marker"
55618 = "Lincoln’s First Illinois Home Historical Marker"
61452 = "The Eastland Disaster Historical Marker"
76532 = "McHenry County’s First Courthouse Historical Marker"
82400 = "Former Site of the “Zum Deutschen Eck” Restaurant Historical Marker"
94232 = "Aurora Hotel • Leland Hotel Historical Marker"
99733 = "Louis Jolliet & Père Jacques Marquette Historical Marker"
105653 = "Jardin aux Potages Historical Marker"
110681 = "Logan Square • Palmer Square Historical Marker"
115585 = "Haymarket Martyrs’ Monument Historical Marker"
132021 = "Mary Bartelme, Illinois’ First Female Judge Historical Marker"
138435 = "The Ariston Café, Litchfield, Illinois Historical Marker"
140348 = "The Küenster Building Historical Marker"
143986 = "The Küenster Building Historical Marker"
144862 = "Grant’s March to Naples Historical Marker"
160588 = ""Palms Grill Café" Mural Historical Marker"
160821 = ""Wisteria Café" Mural Historical Marker"
177500 = "Noël Le Vasseur Historical Marker"
185190 = "Père Marquette Historical Marker"
188068 = "László Moholy-Nagy Historical Marker"
190190 = "A Lot of Activism in the Neighborhood Historical Marker"

If strTitle.Contains("</") Then
           strTitle = RegexReplace("<[^>]*>", strTitle, "")
End If

Sub RegexReplace(Pattern As String, Text As String, Replacement As String) As String
    Dim m As Matcher
    m = Regex.Matcher(Pattern, Text)
    Dim r As Reflector
    r.Target = m
    Return r.RunMethod2("replaceAll", Replacement, "java.lang.String")
End Sub

    File.Copy(File.DirAssets,"windows-1252.txt",File.DirTemp,"windows-1252.txt")
  
    Dim Reader As TextReader
    Reader.Initialize2(File.OpenInput(File.DirTemp, "windows-1252.txt"),"Windows-1252") ' Use the correct Encoding when reading a File. In this Case Windows-1252
    Dim line As String
    line = Reader.ReadLine
    Do While line <> Null
        Log(line) ' The german Umlauts are correctly shown in B4X
        line = Reader.ReadLine
    Loop
    Reader.Close

    Activity.LoadLayout("Layout")
    File.Copy(File.DirAssets,"windows-1252.txt",File.DirInternal,"windows-1252.txt")
    
    Dim Reader As TextReader
    Reader.Initialize2(File.OpenInput(File.DirInternal, "windows-1252.txt"),"Windows-1252")
    Dim line As String
    line = Reader.ReadLine
    Do While line <> Null
        ListView1.AddSingleLine(line) ' Shows the correct characters in Listview...
        line = Reader.ReadLine
    Loop
    Reader.Close

    Dim b() As Byte
    b = File.ReadBytes(File.DirAssets, "Markers.csv")
    Dim s As String
    Dim bc As ByteConverter
    s = bc.StringFromBytes(b, "windows-1252")
    File.WriteString("d:\\", "output.csv", s)