Invalid Characters-How to remove them?

im converting an XML File to an Access Database.  the problem i keep having is the XML file is full of invalida characters like;
 and so on.  How can i clean up the data being saved to the xml file, i.e remove the invalid chars.  so far my sub looks like this but it just keeps getting longer;


Private Sub Clean_XML_Export2(myExportstruct As datastruct)
Dim s As String, tmp() As String, i As Integer
s = "&|" & Chr(34) & "|" & Chr$(0) & "|<|>|=|+|-|!|?|" & vbNullChar & "|" & vbNull & "|" & vbCr & "|" & vbLf & "|" & vbCrLf & "|¤|ö|Ö|í|é|´|
|||||‘|’|¥||||||||||||"
tmp = Split(s, "|")

'MsgBox Chr(34)

For i = 0 To UBound(tmp)
With myExportstruct
    .album = Trim(Replace(.album, tmp(i), ""))
    .artist = Trim(Replace(.artist, tmp(i), ""))
    .file = Trim(Replace(.file, tmp(i), ""))
    .genre = Trim(Replace(.genre, tmp(i), ""))
    .track = Trim(Replace(.track, tmp(i), ""))
    .year = Trim(Replace(.year, tmp(i), ""))
    .Comment = Trim(Replace(.Comment, tmp(i), ""))
    .Bitrate = Trim(Replace(.Bitrate, tmp(i), ""))
End With
'Debug.Print tmp(i) & "   " & Asc(tmp(i))
Next

End Sub