دەتوانی بە دەستووری ToLower پیتەکان بگۆڕی بۆ جۆری بچووک. کەواتە:
If TextBox1.Text.ToLower() = a" Then
TextBox2.Text = "پیتی یەکەمی زمانی ئینگلیزی‌"
End If

بۆ ئەمەش کە بتوانی بە هاسانی لە ئینگلیسی بۆ کوردی و بە پێچەوانە وەرگێڕی پێشنیاری من ئاوایە:
دەپێشدا ٢ تەنی Dictionary پڕ بکەوە. وەک:
' ku2en bo wergeran le Kurdi ra bo Inglisi
Dim ku2en As New Dictionary(Of String, List(Of String))
' en2ku bo wergeran le Inglisi ra bo Kurdi
Dim en2ku As New Dictionary(Of String, List(Of String))

' Zede krdni English --> Kurdi
en2ku.Add("a", New List(Of String)(New String() {"یەکەم پیتی ئینگیسی"}))
en2ku.Add("hi", New List(Of String)(New String() {"سڵاو"}))
en2ku.Add("knight", New List(Of String)(New String() {"ڕێزدار", "ئەسپ سوار", "ئەسپ(لەشەترەنج دا)"}))

' chekrdni Kurdi --> English le ruy English --> Kurdi
Dim enu As Dictionary(Of String, List(Of String)).Enumerator = en2ku.GetEnumerator()
While enu.MoveNext
Dim en As String = enu.Current.Key
Dim ku As List(Of String) = enu.Current.Value
For i As Integer = 0 To ku.Count - 1
If (Not ku2en.ContainsKey(ku(i))) Then
ku2en.Add(ku(i), New List(Of String))
End If
ku2en(ku(i)).Add(en)
Next
End While