Dim nome As String
Dim i As Integer
Dim vocali As String
Dim cons As String
nome = Text1.Text

For i = 1 To Len(nome)
'InStr=cerca un carattere all'interno di una stringa
If InStr("aeiou", Mid(nome, i, 1)) Then
vocali = vocali + Mid(nome, i, 1)
End If
Next
Label1.Caption = vocali

poi fai lo stesso per le consonanti.