Нужно переделать программу Pascal в Visual Basic - VB (172039)

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

Помогите, пожалуйста перевести эту программу на VB6.0. Я его практически не заю Заранее благодарен

                    Листинг программы
                
 
                        
                          
                    
var
a:array[1..100] of integer;
i,j,n,m,s:integer;
begin
writeln('Введите количество элементов A (не более 50');
readln(n);
writeln('Введите количество элементов B (не более 50');
readln(m);
for i:=1 to n do begin
   writeln('Введите a-',i);
   readln(a[i]);
end;
for i:=n+1 to n+m do begin
   writeln('Введите b-',i-n);
   readln(a[i]);
end;
for i:=1 to n+m do begin
   for j:=1 to n+m-1 do begin
     if a[j]>a[j+1] then begin
      s:=a[j+1];
      a[j+1]:=a[j];
      a[j]:=s;
     end;
   end;
end;
writeln('Новая последовательность:');
for i:=1 to n+m do begin
   write(a[i],' ');
end;
readln;
   end.

Вот вариант, который я сам сделал, но он работает не как нужно. В чем ошибка - не пойму...

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i, j, n, m, s, u, uu As Integer
n = InputBox("Введите количество элементов массива A (не более 50)", "Массив A")
m = InputBox("Введите количество элементов массива B (не более 50)", "Массив B")
 
For i = 1 To n Step 1
a(i) = InputBox("Введите a[" & i & "]", "Ввод массива A")
Next
u = n + 1
uu = m + n
For i = u To uu Step 1
a(i) = InputBox("Введите b[" & i - n & "]", "Ввод массива B")
Next
 
For i = 1 To (m + n) Step 1
For j = 1 To (m + n) - 1 Step 1
If a(j) > a(j + 1) Then
s = a(i + j)
a(j + 1) = a(j)
a(j) = s
End If
Next
Next
prompt = ""
For i = 1 To (m + n)
    prompt = prompt & a(i) & Chr(32)
Next i
 
MsgBox prompt
End Sub

Решение задачи: «Нужно переделать программу Pascal в Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim a(1 To 100) As Integer
    Dim i, j, n, m, s As Integer
    n = CInt(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ* A (Г*ГҐ ГЎГ®Г«ГҐГҐ 50)", "ГЊГ*Г±Г±ГЁГў A"))
    m = CInt(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ* B (Г*ГҐ ГЎГ®Г«ГҐГҐ 50)", "ГЊГ*Г±Г±ГЁГў B"))
    MsgBox CStr(m + n)
     
    For i = 1 To n Step 1
        a(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ a[" & i & "]", "Г‚ГўГ®Г¤ Г¬Г*Г±Г±ГЁГўГ* A")
    Next i
    For i = 1 To m Step 1
        a(i + n) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ b[" & i & "]", "Г‚ГўГ®Г¤ Г¬Г*Г±Г±ГЁГўГ* B")
    Next i
    For i = 1 To (m + n) Step 1
        For j = 1 To (m + n) - 1 Step 1
            If a(i) > a(j) Then
                s = a(i)
                a(i) = a(j)
                a(j) = s
            End If
        Next j
    Next i
    prompt = ""
    For i = 1 To (m + n)
        prompt = prompt & CStr(a(i)) & Chr(32)
    Next i
    MsgBox prompt
End Sub