Visual Basic - Contar espacios en Blanco

Saludos,

Necesito hacer un programa que me lea como entrada cualquier cadena de caracteres, me elimine los espacios en blanco y cuente esos espacios en blanco para luego mostrarlos en una caja de texto. ¿Cómo se hace?

También quiero saber cómo puedo hacer para comparar esa cadena con una serie de símbolos por separado, es para saber si cada caracter de esa cadena contiene los símbolos que yo he declarado como constantes.

Hay una instrucción en VB en la que uno compara una cadena con cualquier caracter desde la A-Z, ¿cómo es que se escribe?

Mil gracias.

Busca la ayuda de la instrucción Instr, con este encuentras los caracteres que necesitas, luego mira Mid para coger los datos de la cadena en dos trozos y borrar el del medio, haces esto n veces y listo

‘Compañero a ver si te sirve este código
‘Lo primero contamos los espacios en blanco y unimos la cadena
'Segundo comparamos con los caracteres deseados

Primero creas 4 TextBox con los nombres por defecto
Segundo 2 botones Cmdcontar, CmdComparar

Text1 =Digitamos la frase a evaluar
Text2 =Presentamos la frase anterior unida sin espacios
Text3 =Presentaos el total de espacios en blanco que tiene la frase
Text4 =Presentamos el total de las comparaciones acertadas

Private Sub Cmdcontar_Click()
Espacios = 0
Posicion = 1
Total = Len(Text1.Text)
Letra = LCase(Mid(Text1.Text, Posicion, 1))
For i = 1 To Total
If Letra = " " Then
Espacios = Espacios + 1
Else
'Aqui uno el texto sin espacios
Text2.Text = Text2.Text + Letra
End If
Posicion = Posicion + 1
Letra = LCase(Mid(Text1.Text, Posicion, 1))
Next i
Text3.Text = Espacios

End Sub

‘Luego comparamos el resultado anterior que guardamos en la caja de texto 2
‘con los caracteres que queramos por ejemplo “a b c” y ponemos el resultado
‘en otra caja de texto

Private Sub CmdComparar_Click()
Dim TotalEncontrado As Integer
Posicion = 1
Total = Len(Text2.Text)
Letra = LCase(Mid(Text2.Text, Posicion, 1))
For i = 1 To Total
'Comparación de la cadena
Select Case Letra
Case "a" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
Case "b" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
Case "c" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
End Select

Posicion = Posicion + 1
Letra = LCase(Mid(Text2.Text, Posicion, 1))
Next i
Text4.Text = TotalEncontrado

End Sub

Suerte, salu2