Function ckReplace(StrIN As String, Optional StripChar As String = "", Optional ReplaceChar As String = "") As String Dim x As Integer x = 1 If StripChar <> "" Then Do Until x <= 0 Or StripChar = ReplaceChar x = InStr(1, StrIN, StripChar) If x > 0 Then StrIN = left$(StrIN, x - 1) & ReplaceChar & Right$(StrIN, Len(StrIN) - (x - 1) - Len(StripChar)) Loop Else For x = 1 To Len(StrIN) If x > Len(StrIN) Then Exit For If Asc(Mid$(StrIN, x, 1)) < 32 Or Asc(Mid$(StrIN, x, 1)) > 126 Then StrIN = left$(StrIN, x - 1) & ReplaceChar & Right$(StrIN, Len(StrIN) - (x - 1) - 1) If ReplaceChar = "" Then x = x - 1 End If Next End If ckReplace = StrIN End Function