Visual Basic.Net--Büyük Ünlü Uyumu

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kalin(3), ince(3), karakter As String
        Dim bak, bak1 As Integer
        bak = 0
        bak1 = 0

        kalin(0) = "a"
        kalin(1) = "ı"
        kalin(2) = "u"
        kalin(3) = "o"

        ince(0) = "e"
        ince(1) = "i"
        ince(2) = "ü"
        ince(3) = "ö"

        For i = 1 To TextBox1.Text.Length
            If Mid(TextBox1.Text, i, 1) = kalin(0) Or Mid(TextBox1.Text, i, 1) = kalin(1) Or Mid(TextBox1.Text, i, 1) = kalin(2) Or Mid(TextBox1.Text, i, 1) = kalin(3) Then
                bak = 1
            ElseIf Mid(TextBox1.Text, i, 1) = ince(0) Or Mid(TextBox1.Text, i, 1) = ince(1) Or Mid(TextBox1.Text, i, 1) = ince(2) Or Mid(TextBox1.Text, i, 1) = ince(3) Then
                bak1 = 1
            End If
        Next
        If bak1 = bak Then
            MsgBox("Büyük ünlü uyumuna uymaz.")
        Else
            MsgBox("Büyük ünlü uyumuna uyar.")
        End If
        TextBox1.Text = ""
    End Sub
End Class

-----------------------------------------------------------
Kodda kullandığım bazı fonksiyonların işlevi

Mid() fonksiyonu bir stringin en solundan belirtilen karakterden,belirtilen karakter kadarını alarak yeni bir string oluşturur.
Mid(string,1,2) --> En soldaki 1. karakter de dahil olmak üzere 2 harf alır.