[RESOLVED] Replace All Duplicates in String

[MarkWalsh]

Dim strNames As String
    strNames = "Tom,,,,,,Dick,,,,,,Harry"
    Do While InStr(1, strNames, ",,") > 0
        strNames = Replace(strNames, ",,", ",")
    Loop
    Debug.Print strNames