не могли бы проконсультировать?

[Злыдень]

как количество символов в строке обьявить разрядностью массива, не подскажете? вот примерный код в визуал бейсике, нужно сделать программу для перевода из десятичной в двоичную. но тут АшиПок...)
Private Sub Form_Load()
Text1 = 0
End Sub
Private Sub Button1_Click()
d= Len(text1)
Dim a(d)
For i = 1 To Len(Text1)
If Text1 \ 2 = 0 Then End
ElseIf (Text1 \ 2) < Text1 / 2 Then a(i) = 1
End If
Next i
Print Str$(a(d))
For i = Len(a(d)) To 1 Step -1
Text2 = Text2 + Mid$(a(d), i, 1)
Next i
End Sub