Programiranje u VB6

Code:
a=text1.text               'broj
br = 0                          
y = len (a)
x = mid(a,1,1)
for i = 2 to a
    z = mid(a,i,1)
    br=br+z
if x>be then
'broj je dobar 
else
'broj nije dobra
end if
next i

Code:
Private Function DobarBroj(lNumber As Long) As Boolean
Dim i As Long
Dim j As Long
Dim lZbir As Long

Dim strBroj As String
strBroj = CStr(lNumber)

If Len(strBroj) = 1 Then
    DobarBroj = True
    Exit Function
End If

For i = 1 To Len(strBroj)
    lZbir = 0
    For j = i + 1 To Len(strBroj)
        lZbir = lZbir + Val(Mid(strBroj, j, 1))
    Next j
    If Val(Mid(strBroj, i, 1)) <= lZbir Then
        DobarBroj = False
        Exit Function
    End If
Next i

DobarBroj = True
End Function

Code:
MsgBox DobarBroj(n)