Looping Until Text Not Found

[fEtchboi88]

I have some code that I want to continuously loop while double spaces are found, and replace them with a single space.

Is there a way to do this? I can't seem to find any information on what the Find method in VBA returns (or what the replace method returns)

Here's my code (note, this is actually in Visual Studio 2008 in an excel addin):

        bDoubles = Globals.ThisAddIn.Application.Selection.find(What:=Space(2))
        If Not bDoubles Is Nothing Then
            Do Until bDoubles Is Nothing
                System.Windows.Forms.Application.DoEvents()
                bDoubles.Activate()
                Globals.ThisAddIn.Application.Selection.replace(What:=Space(2), Replacement:=Space(1))
                bDoubles = Globals.ThisAddIn.Application.Selection.find(What:=Space(2))
            Loop
        End If