Menampilkan Huruf Vokal dengan Visual Basic.Net 2008

Public Class Form1

    Private Sub Bproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bproses.Click
        Dim huruf As String
        Dim jml As Byte
        Dim x As String
        karakter.Items.Clear()
        For i = 65 To 91
            x = Chr(i)
            jml = 0
            For j = 1 To Len(kalimat.Text)
                huruf = Microsoft.VisualBasic.Mid(kalimat.Text, j, 1)
                If x = huruf Then jml = jml + 1
            Next j
            If jml > 0 Then
                If x = "A" Then Hurufvokal.Items.Add("A")
                If x = "I" Then Hurufvokal.Items.Add("I")
                If x = "U" Then Hurufvokal.Items.Add("U")
                If x = "E" Then Hurufvokal.Items.Add("E")
                If x = "O" Then Hurufvokal.Items.Add("O")


                karakter.Items.Add("huruf" & x & "=" & jml & "karakter")

            End If

        Next i
    End Sub