Function cleanTRASHchar(ORIGstring As String)

Dim WORKstring As String
Dim PARSEDstring As String
Dim DIRTYchar As String
Dim CLEANchar As String


WORKstring = Trim(ORIGstring)
PARSEDstring = ""

For i = 1 To Len(WORKstring)

    DIRTYchar = Mid(WORKstring, i, 1)
    CLEANchar = DIRTYchar
    
    
    'list of bad characters to change
    
    If DIRTYchar = ChrW(191) Then CLEANchar = ""
    
    If DIRTYchar = ChrW(9488) Then CLEANchar = ""
    
    If DIRTYchar = ChrW(9617) Then CLEANchar = ""
    
    If DIRTYchar = ChrW(172) Then CLEANchar = ""
    
    If DIRTYchar = ChrW(9524) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(223) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9524) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(945) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9492) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(915) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9516) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9500) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(960) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9532) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(963) Then CLEANchar = "a"
    
    If DIRTYchar = ChrW(9472) Then CLEANchar = "ae"
    
    If DIRTYchar = ChrW(931) Then CLEANchar = "ae"
    
    If DIRTYchar = ChrW(9566) Then CLEANchar = "ae"
    
    If DIRTYchar = ChrW(9567) Then CLEANchar = "c"
    
    If DIRTYchar = ChrW(964) Then CLEANchar = "c"
    
    If DIRTYchar = ChrW(920) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(9556) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(9562) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(934) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(9577) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(948) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(9574) Then CLEANchar = "e"
    
    If DIRTYchar = ChrW(9552) Then CLEANchar = "i"
    
    If DIRTYchar = ChrW(966) Then CLEANchar = "i"
    
    If DIRTYchar = ChrW(8745) Then CLEANchar = "i"
    
    If DIRTYchar = ChrW(9575) Then CLEANchar = "i"
    
    If DIRTYchar = ChrW(9572) Then CLEANchar = "n"
    
    If DIRTYchar = ChrW(177) Then CLEANchar = "n"
    
    If DIRTYchar = ChrW(8804) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(9561) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(9573) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(9560) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(8992) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(9554) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(9578) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(176) Then CLEANchar = "o"
    
    If DIRTYchar = ChrW(247) Then CLEANchar = "oe"
    
    If DIRTYchar = ChrW(9555) Then CLEANchar = "oe"
    
    If DIRTYchar = ChrW(183) Then CLEANchar = "u"
    
    If DIRTYchar = ChrW(9484) Then CLEANchar = "u"
    
    If DIRTYchar = ChrW(8729) Then CLEANchar = "u"
    
    If DIRTYchar = ChrW(9608) Then CLEANchar = "u"
    
    If DIRTYchar = ChrW(9604) Then CLEANchar = "ue"
    
    'If DIRTYchar = ChrW(8319) Then CLEANchar = "ue"

PARSEDstring = PARSEDstring & CLEANchar

Next i

cleanTRASHchar = UCase(PARSEDstring)

End Function