Stripping Double Characters From a String

 
Public Function StripDoubleChar(ByVal Text As String, Char As String) As 
String
Dim Pos As Long
Dim Start As Integer
Dim sTemp As String
Dim sFind As String
Dim 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) &