Another tip you may find usefull, use replace to get rid f all the rubbish in many files.
Heres one I made earlier
Function RemoveSpecialChrs(WhatString As String) As String
Dim sConts As String
sConts = WhatString
sConts = Replace(sConts, vbBack, vbCrLf)
sConts = Replace(sConts, vbTab, " ")
sConts = Replace(sConts, vbCrLf, vbCrLf)
sConts = Replace(sConts, vbLf, vbCrLf)
sConts = Replace(sConts, vbVerticalTab, vbCrLf)
sConts = Replace(sConts, vbFormFeed, vbCrLf)
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Trim(sConts)
RemoveSpecialChrs = sConts
End Function
Function RemoveChrs(WhatString As String) As String
Dim sConts As String
sConts = WhatString
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), "", ",")
sConts = Replace(LCase(sConts), " ,", ",")
sConts = Replace(LCase(sConts), "", " ")
sConts = Replace(LCase(sConts), ",", " ")
sConts = Replace(LCase(sConts), "[", " ")
sConts = Replace(LCase(sConts), "]", " ")
sConts = Replace(LCase(sConts), "{", " ")
sConts = Replace(LCase(sConts), "}", " ")
sConts = Replace(LCase(sConts), "£", " ")
sConts = Replace(LCase(sConts), "$", " ")
sConts = Replace(LCase(sConts), "!", " ")
sConts = Replace(LCase(sConts), "%", " ")
sConts = Replace(LCase(sConts), "^", " ")
sConts = Replace(LCase(sConts), "&", " ")
sConts = Replace(LCase(sConts), "*", " ")
sConts = Replace(LCase(sConts), "(", " ")
sConts = Replace(LCase(sConts), ")", " ")
sConts = Replace(LCase(sConts), "+", " ")
sConts = Replace(LCase(sConts), "-", " ")
sConts = Replace(LCase(sConts), "=", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Trim(sConts)
RemoveChrs = sConts
End Function
Function RemoveLetters(WhatString As String) As String
Dim sConts As String
sConts = WhatString
sConts = Replace(LCase(sConts), "q", "")
sConts = Replace(LCase(sConts), "w", "")
sConts = Replace(LCase(sConts), "e", "")
sConts = Replace(LCase(sConts), "r", "")
sConts = Replace(LCase(sConts), "t", "")
sConts = Replace(LCase(sConts), "y", "")
sConts = Replace(LCase(sConts), "u", "")
sConts = Replace(LCase(sConts), "i", "")
sConts = Replace(LCase(sConts), "o", "")
sConts = Replace(LCase(sConts), "p", "")
sConts = Replace(LCase(sConts), "a", "")
sConts = Replace(LCase(sConts), "s", "")
sConts = Replace(LCase(sConts), "d", "")
sConts = Replace(LCase(sConts), "f", "")
sConts = Replace(LCase(sConts), "g", "")
sConts = Replace(LCase(sConts), "h", "")
sConts = Replace(LCase(sConts), "j", "")
sConts = Replace(LCase(sConts), "k", "")
sConts = Replace(LCase(sConts), "l", "")
sConts = Replace(LCase(sConts), "z", "")
sConts = Replace(LCase(sConts), "x", "")
sConts = Replace(LCase(sConts), "c", "")
sConts = Replace(LCase(sConts), "v", "")
sConts = Replace(LCase(sConts), "b", "")
sConts = Replace(LCase(sConts), "n", "")
sConts = Replace(LCase(sConts), "m", "")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Replace(LCase(sConts), " ", " ")
sConts = Trim(sConts)
RemoveLetters = sConts
End Function