Como contar espacios en una cadena

[rafapaskual]

Hola! Prueba esto, mira los comentarios.

Public Function cont_espacios(cadena As String) As Integer
'declara las variables, siempre es mejor
Dim salir As Boolean
Dim a, b As Integer
salir = True
b = 1
Do While salir
'la cadena en la que se busca va en medio, la buscada a la derecha
a = InStr(b, cadena, " ")
If a <> 0 Then
cont_espacios = cont_espacios + 1
Else
salir = False
End If
'tienes que seguir buscando un caracter por delante de donde lo has encontrado
'si no entraras en un bucle infinito
b = a + 1
Loop
End Function

Saludos!