Consonanti, vocali ecc...

[Andreass]

oppure :
Dim i As Integer
Dim voc As String
Dim cons As String
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)

If Mid(Text1.Text, i, 1) = "a" Or Mid(Text1.Text, i, 1) = "e" Or Mid(Text1.Text, i, 1) = "i" Or Mid(Text1.Text, i, 1) = "o" Or Mid(Text1.Text, i, 1) = "u" Then
voc = voc + Mid(Text1.Text, i, 1)
Else
If Mid(Text1.Text, i, 1) <> "a" Or Mid(Text1.Text, i, 1) <> "e" Or Mid(Text1.Text, i, 1) <> "i" Or Mid(Text1.Text, i, 1) <> "o" Or Mid(Text1.Text, i, 1) <> "u" Then
cons = cons + Mid(Text1.Text, i, 1)
End If
End If

Next

l istruzione if tutto su una riga.
Label1.Caption = voc
Label2.Caption = cons