Değiken Kullanımına Bağlı ToUpper Ve ToLower Kullanımı

Gerekenler 1 Buton.
------------------------------------------------------------------------------------------------------------
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim veri As String
        veri = InputBox("NASILSINIZ?")
        If veri.ToUpper.CompareTo("İYİM") = 0 Then
            MsgBox("ALLAH İYİLİK VERSİN :)")
        Else
            MsgBox("GEÇMİŞ OLSUN :(")
        End If
    End Sub
End Class
------------------------------------------------------------------------------------------------------------