Написание программы в другой среде - VB

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

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

Program Ten_in_Two;
begin
var a,i:integer;
var C,Y:string;
 
Writeln('Введите десятичное число,кроме нуля и единицы');
Read(a);
 
While (a<>1) do begin 
 
if (a mod 2=0) and (a<>1)then begin
a:=a div 2;
C:=C+'0';
end;
 
if (a mod 2=1) and (a<>1) then begin
a:=a div 2;
C:=C+'1';
end;
 
If a=1 then C:=C+'1';
 
end;
 
For i:=Length(c) downto 1 do begin 
if C[i]='1' then Y:=Y+'1'
else 
Y:=Y+'0';
end;

Writeln('Ваше число в двоичной системе счисления ',Y);
 
end.

Sub Ten_in_Two()
Dim a, i As Integer
Dim C, Y As String
 
MsgBox ("Введите десятичное число")
a = InputBox(a)
 
Do While a <> 0
If (a) Mod (2) = 1 Then
C = C + "1"
Else
C = C + "0"
End If
a = a \ 2
Loop
 
MsgBox (C)
i = Len(C)
Y = ""
 
For i = Len(C) To 1 Step -1
If C(i) = "1" Then ' Эту строчку выделяет "Debug".
Y = Y + "1"
Else
Y = Y + "0"
End If
Next
 
MsgBox("Ваше число в двоичной системе счисления")
MsgBox (Y)
End Sub

Решение задачи: «Написание программы в другой среде»

textual
                            Листинг программы 
                        

                            Sub Ten_in_Two()
Dim a As Integer, i As Integer
Dim C As String, Y As String
 
MsgBox ("Введите десятичное число")
a = InputBox(a)
 
Do While a <> 0
If (a) Mod (2) = 1 Then
C = C + "1"
Else
C = C + "0"
End If
a = a \ 2
Loop
 
MsgBox (C)
i = Len(C)
Y = ""
 
For i = Len(C) To 1 Step -1
If Mid(C, i, 1) = "1" Then ' Эту строчку выделяет "Debug".
Y = Y + "1"
Else
Y = Y + "0"
End If
Next
 
MsgBox ("Ваше число в двоичной системе счисления")
MsgBox (Y)
End Sub
                        