Dim chkfs As New FileStream(URL, FileMode.Open, FileAccess.Read)
        Dim chksr As New StreamReader(chkfs)
        TempDump = chksr.ReadToEnd
        If TempDump.ToString.Contains("—") Or TempDump.ToString.Contains("’") Or TempDump.ToString.Contains("‘") Then
            chksr.Close()
            Dim chksw As New StreamWriter(URL)
            TempDump = TempDump.Replace("—", "-")
            TempDump = TempDump.Replace("’", "'")
            TempDump = TempDump.Replace("‘", "'")
            chksw.Write(TempDump)
            TempDump = ""
        End If