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

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