Sub zai_at_sa()
Dim arr() As String *  1 
Dim i As Integer, ii As Integer, i2 As Integer, iLen As Integer

' "отладочные переменные" - входной и выходной "массивы" символов
Dim Text1$, Text2$

Text1 = "   У МЕНЯ     ПЛОХИ    ДЕЛА     С     ВИЗУАЛ        БЭЙСИК   "
' Text1 = "   "

iLen = Len(Text1) ' длина набора символов
ReDim arr( 1  To iLen) ' задание размера "рабочэго" массива

' заполнение массива символами
For i =  1  To iLen: arr(i) = Mid(Text1, i): Next i

' собсно "обработка"
For i =  1  To iLen
If arr(i) = " " Then
    If i =  1  Then i =  0 
    ii = i +  1 
    
    If ii <= iLen Then
    Do While arr(ii) = " "
        ii = ii +  1 : If ii > iLen Then Exit Do
    Loop
    End If
    
    If ii > iLen Then
        If i =  0  Then i =  2 
        ReDim Preserve arr( 1  To i -  1 ): Exit For
    Else
        i = i +  1 : i2 = ii
        If i <> i2 Then
        Do While i <= ii And i2 <= iLen
            If arr(i2) <> " " Then
                arr(i) = arr(i2): arr(i2) = " "
                i = i +  1 : i2 = i2 +  1 
            Else: Exit Do
            End If
        Loop
        End If
        
        If i2 > iLen Then
            ReDim Preserve arr( 1  To i -  1 ): Exit For
        Else: i = i -  1 
        End If
    End If
End If
Next i

' "лутц обратно на воду"
iLen = UBound(arr): Text2 = ""
For i =  1  To iLen: Text2 = Text2 & arr(i): Next i

' провэрка (for debug only)
Debug.Print "былло ~" + Text1 + "~"
Debug.Print "стало ~" + Text2 + "~"

End Sub