разработать программу в Visual Basic

[Юлия*]

Помогите пожалуйста разобраться в чем ошибка.
Задание: разработать программу в Visual Basic для перевода десятичного числа (25) в двоичное число.
Программа разработана:

Private Sub Command1_Click()
a = StrToInt(Textbox1.Text)
d$ = " "
For i = 1 To 10
If a / 2 = Int(a / 2) Then
a = Int(a / 2)
Next i
L = Len(d$)
n$ = " "
For i = L To 1 Step -1
n$ = n$ + Mid$(d$, i, 1)
Next i
Textbox2.Text = n$
End Sub

но при запуске программы вылезает сообщение: Sub или Function не определены. В чем проблема?

[0479]

Можно и легче

Option Explicit
Private Sub Form_Load()

End Sub


Private Function ConvertToBinary(ByVal lngQuotient As Long) As String
    Dim strBinary As String
    Dim strReturn As String
    Dim i As Integer
    i = 100
    strBinary = String(i, "0")
    Do While lngQuotient
        Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2)
        lngQuotient = lngQuotient \ 2
        i = i - 1
    Loop
    strReturn = Right(strBinary, 100 - i)
    ConvertToBinary = strReturn
End Function

Private Sub Command1_Click()
Text2.Text = ConvertToBinary(Text1.Text)
End Sub

[0479]

Пардон не заметил зашифрованный текст.

[0479]

Взято отсюда
http://www.vbfaq.ru/2008/09/perevod-...-v-dvoichnuyu/

[Юлия*]

спасибо!!!