03. Vowel Sum

Sub VowelSum()
    Dim text As String
    text = "bamboo"

    Dim length, sum As Integer
    length = Len(text)

    For i = 1 To length
        Dim letter As String
        letter = Mid(text, i, 1) 'e

        If letter = "a" Then
            sum = sum + 1
        ElseIf letter = "e" Then
            sum = sum + 2
        ElseIf letter = "i" Then
            sum = sum + 3
        ElseIf letter = "o" Then
            sum = sum + 4
        ElseIf letter = "u" Then
            sum = sum + 5
        End If
    Next i

    Debug.Print sum

End Sub