Počet samohlásek v řetězci
Public Function VowelCount(ByVal InputString As String) As Long
Dim v(9) As String
Dim vcount As Integer
Dim flag As Long
Dim strLen As Long
Dim i As Integer
v(0) = "a"
v(1) = "i"
v(2) = "o"
v(3) = "u"
v(4) = "e"
v(5) = "A"
v(6) = "I"
v(7) = "O"
v(8) = "U"
v(9) = "E"
strLen = Len(InputString)
For flag = 1 To strLen
For i = 0 To 9
If Mid(InputString, flag, 1) = v(i) Then
vcount = vcount + 1
End If
Next i
Next flag
VowelCount = vcount
End Function