Here is a sipel function for stripping double characters from a string:

 Public Function StripDoubleChar(ByVal Text As String, Char As String) As StringDim Pos As LongDim Start As IntegerDim sTemp As StringDim sFind As StringDim iCount As Integer    Start = 1    sTemp = Text    sFind = String(2, Char)    Do        Pos = InStr(Start, sTemp, sFind, vbBinaryCompare)        If Pos Then            Mid$(sTemp, Pos) = Mid$(sTemp, Pos + 1) &