Private Sub Command1_Click()
Dim number, x As Integer
number = Val(Text1.Text)

If ((number Mod 2) = 0) Then

Do

number = number / 2

Loop Until number <= 2


Label1.Caption = number
Else

Do
number = number / 3
Loop Until (number <= 3)
Label1.Caption = number
End If


End Sub