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