Перевод текста с английской раскладки на русскую - Visual Basic .NET

 Public Function ViseVersa(ByVal iString As String) As String
  Dim oString, sChar As String
  Dim n, tn As Integer
  oString = ""
  tn = iString.Length
  For n = 1 To tn
   sChar = Mid(oString, n, 1)
   Select Case sChar
    Case "a"
     oString &= "ф"
    Case "A"
     oString &= "Ф"
     '.........
     '... сам допишешь
     '.........
    Case "z"
     oString &= "я"
    Case "Z"
     oString &= "Я"
     'и обратно
    Case "а"
     oString &= "f"
    Case "А"
     oString &= "F"
     '.........
     '... сам допишешь
     '.........
    Case "я"
     oString &= "z"
    Case "Я"
     oString &= "Z"
    Case Else
     oString &= sChar
   End Select
  Next n
  Return oString
 End Function