USANDO SPLIT NO CONSOLE

RENATOSSF 01/04/2012 23:04:30
#398895

Sou novo no forum e preciso de ajuda para contar as vogais e as consoantes de uma frase, eu consigo fazer a contagem de quantas palavras tem uma frase.
Estou usando o Visual Basic 2010



Class Frase
Public aFrase As String
Public Function Num_Palavras() As String

Dim cont As Integer

Do While aFrase.IndexOf(Space(2)) >= 0
aFrase = aFrase.Replace(Space(2), Space(1))
Loop
cont = Split(aFrase, Space(1)).Length
Return ([Ô]A frase contém [Ô] & cont & [Ô] palavras[Ô])

End Function
Public Function Num_Vog(ByVal Expression As String,


End Function

End Class
Sub Retorna_Frase()
Dim x As New Frase
Console.WriteLine()
Console.WriteLine([Ô]Digite uma frase[Ô])
Console.WriteLine()
x.aFrase = CStr(Console.ReadLine())
Console.WriteLine(x.Num_Palavras)
Console.WriteLine()
End Sub
Sub Retorna_Vogal()
Dim x As New Frase

End Sub