Como contar espacios en una cadena

[emucho]

hola mundo, tengo un problemita aca que no puedo resolver. quiero contar los espacios en una cadena.
yo estoy haciendo la siguiente funcion:

Public Function cont_espacios(cadena As String) As Integer
salir = True
b = 1
Do While salir
a = InStr(b, " ", cadena)
If a <> 0 Then
cont_espacios = cont_espacios + 1
Else
salir = False
End If
b = a
Loop
End Function

[RootK]

Hola.. te puede quedar de ésta forma:

Function cont_espacios(ByVal cadena As String) As Integer
Dim i As Integer
Dim num As Integer

For i = 1 To Len(cadena)
If InStr(Mid(cadena, i, 1), " ") <> 0 Then
num = num + 1
End If
Next
cont_espacios = num
End Function

Saludos

[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!

[emucho]

Ah, le estaba errando en la funcion,
muchisimas gracias!!