Attribute VB_Name = "testloop3"
Sub ƒeƒXƒg()
    Dim x As Integer

    x = 1

    Do
        x = x * 3
    Loop While x < 100

    Range("A1").Value = x

End Sub