Транслитерация лат-кир на Visual Basic 2008

[Rodger63]

С кириллицы на латиницу ясно а вот обратно уже сложнее зависаю

Public Class Main


Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
'Масcив с русскими буквами.
Dim Rus As String() = "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П, Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Э,Ю,Я,а,б ,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с, т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я".Split( ",")
'Массив английских букв и сочетаний букв, которые представляют русские.
Dim Eng As String() = "A,B,V,G,D,E,YE,ZH,Z,I,J,K,L,M,N,O, P,R,S,T,U,F,X,C,CH,SH,SHH,'',Y,',E, YU,YA,a,b,v,g,d,e,ye,zh,z,i,j,k,l,m ,n,o,p,r,s,t,u,f,x,c,ch,sh,shh,'',y ,',e,yu,ya".Split(",")
'Временная переменная, которая заменяет буквы.
Dim VrPer As String = TextBox1.Text
ToolStripButton1.Enabled = False
TextBox1.Enabled = False
'Проверка букв и заменяет русские буквы английскими.
For i = 0 To Rus.Length - 1
VrPer = VrPer.Replace(Rus(i), Eng(i))
Next
'Позволяет обновить текст в поле
ToolStripButton1.Enabled = True
TextBox1.Enabled = True
TextBox1.Text = VrPer


End Sub

Проблема заключается в следующем буквы ё,ж,ч,ш,щ,ю,я переводятся уже нетак.Как задать условие чтобы 1 русская буква кодировалась двумя латинскими.