Работа со строками (что-то не дописал) - VB

Формулировка задачи:

условие: Вывести в строку АаБбВвГг:

Private Sub Command1_Click()
Label1.Caption = ""
vivod
End Sub
 
Private Sub vivod()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim mn As Integer
Dim nn As String
Dim n As String
nn = Asc("ГЂ")
n = Asc("Гѓ")
mn = Asc("Г*")
m = Asc("ГЈ")
For i = nn To n
For j = mn To m
Label1.Caption = Label1.Caption & Chr(i) & Chr(j)
Next j
Next i
End Sub

выводит не то, что нужно, точнее не в такой последовательности как я понял, дело в for кто может помочь исправить?

Решение задачи: «Работа со строками (что-то не дописал)»

textual
                            Листинг программы 
                        
                            Print "А" & "а" & "Б" & "б" & "В" & "в" & "Г" & "г"