Procurando número indeterminado de espaços na String [VB6]

Assuntos Gerais
#1

E aí, galerinha do GUJ!
Tudo bem?

Tô com um probleminha aqui. Quero fazer um replace na minha string: a cada vez que houver dois ou mais espaços consecutivos, eu quero substituir por um “\n”, basicamente.
Minha lógica não tá tãããão correta. Vocês podem me dar uma força?
Aí vai ela:

[code]Private Function UpdateFieldValueFromContainer(ByVal Field As String) As String

Dim Caractere As String
Dim NovoTexto As String
Dim Contador As Integer
Dim Value As String
Dim InitCont, EndCont, AuxCont As Integer



NovoTexto = ""
For Contador = 1 To Len(Field)

	If Mid(Field, Contador, 1) = " " Then

		InitCont = Contador
		AuxCont = Contador + 1
		While Mid(Field, AuxCont, 1) = " "
			AuxCont = AuxCont + 1
		Wend

		If (AuxCont - InitCont) >= 4 And (AuxCont - InitCont) <= 6 Then

			NovoTexto = NovoTexto & vbNewLine & vbNewLine
			Contador = AuxCont - 1

		ElseIf (AuxCont - InitCont) >= 2 Then

			NovoTexto = NovoTexto & vbNewLine
			Contador = AuxCont - 1

		Else
			NovoTexto = NovoTexto & Mid(Field, Contador, 1)
		End If

	Else
		NovoTexto = NovoTexto & Mid(Field, Contador, 1)
	End If

Next

UpdateFieldValueFromContainer = NovoTexto

End Function[/code]

Alguma ideia, gente?
Valeu, fiquem com Deus, abraços!

#2

não conheço de VB, mas não tem split, replace, para trabalhar com string nao?

t+

#3