Function REMPC(MyText As String) As String
ResText = ""
For I = 1 To Len(MyText)
If Mid(MyText, I, 1) = " " Or (Mid(MyText, I, 1) >= "0" And Mid(MyText, I, 1) <= "9") Or (Mid(MyText, I, 1) >= "A" And Mid(MyText, I, 1) <= "Z") Or (Mid(MyText, I, 1) >= "a" And Mid(MyText, I, 1) <= "z") Then ResText = ResText + Mid(MyText, I, 1)
Next I
REMPC = ResText
End Function