Private Sub Command1_Click( )
Dim n, m As Integer
Dim ch, s As String
s = "01234567"
____________________
ch = ""
Do While n > 0
m = n Mod 8
__________________
Loop
Text2.Text = ch
End Sub