Perincian Jumlah Variabel

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim X As String = ""
        Dim XJML As Byte = 0
        Dim XA As Byte = 0
        Dim XU As Byte = 0
        Dim XT As Byte = 0
        Dim XO As Byte = 0
        Dim XY As Byte = 0
        TextBox2.Text = ""
        For I = 1 To Len(TextBox1.Text)
            X = Mid(TextBox1.Text, I, 1)
            TextBox2.Text = TextBox2.Text & X & "=" & Asc(X) & vbCrLf
            If X = "A" Or X = "I" Or X = "U" Or X = "E" Or X = "O" Or X = "a" Or X = "i" Or X = "u" Or X = "e" Or X = "o" Then
                XJML = XJML + 1
            End If
            If X = "A" Or X = "a" Then
                XA = XA + 1
            ElseIf X = "I" Or X = "i" Then
                XY = XY + 1
            ElseIf X = "U" Or X = "u" Then
                XU = XU + 1
            ElseIf X = "E" Or X = "e" Then
                XT = XT + 1
            ElseIf X = "O" Or X = "o" Then
                XO = XO + 1
            End If
        Next I
        HURUF.Text = XJML
        A.Text = XA
        Y.Text = XY
        U.Text = XU
        T.Text = XT
        O.Text = XO

    End Sub

    Private Sub BTNCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCLEAR.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        HURUF.Text = ""
        A.Text = ""
        Y.Text = ""
        U.Text = ""
        T.Text = ""
        O.Text = ""
    End Sub

End Class