Visual Basic冰雹石数发生器

Question

我想创建一个程序，根据用户输入的数字计算冰雹数的顺序，然后显示该顺序。我用Java做过这个，但我的老师想用Visual Basic。我不确定我是否应该像在Java中那样使用数组。到目前为止，这是我的代码：

Private Sub btnCalculate_Click(sender As System.Object, e As System.EventArgs) Handles btnCalculate.Click

    Dim input = txtInteger.text

    Do until a Mod 2 = 0 then
        input = input / 2
    msgbox (input)

    Do until input Mod 2 = false
        input = input * 3 + 1
    msgbox (input)