Serie Ulam

Dim resultado, NUMERO As Integer
Private Sub Command1_Click()
NUMERO = InputBox("dame el numero a generar", "captura el numero", 0)
resultado = NUMERO Mod 2
Do While NUMERO = 1
If resultado = 0 Then
NUMERO = NUMERO / 2
Else
NUMERO = (NUMERO * 3) + 1
End If
List1.AddItem Str(NUMERO)
resultado = NUMERO Mod 2
Loop
End Sub