hi guys

how to twist a alpha from eng like ex 2 any alpha lang

Code:
  
Private Sub Command1_Click()
Dim i As Integer
If i = a Then i = z


Select Case i

Case a: Text1.Text = Text2.Text & " ش "
Case b: Text1.Text = Text2.Text & " لا"
Case c: Text1.Text = Text2.Text & " ؤ "
Case d: Text1.Text = Text2.Text & " ي "
Case e: Text1.Text = Text2.Text & " ث "
Case f: Text1.Text = Text2.Text & " ب "
Case g: Text1.Text = Text2.Text & " ل "
Case h: Text1.Text = Text2.Text & " ا "
Case i: Text1.Text = Text2.Text & " ه "
Case j: Text1.Text = Text2.Text & " ت "
Case k: Text1.Text = Text2.Text & " ن "
Case l: Text1.Text = Text2.Text & " م "
  
End Select
End Sub

and i hope some one heeelp me