VBA Loops

Hi there

I was wondering if anyone can help me with loops. I'm just learning this and am working on an exercise for class.

Basically, the problem states that an aluminum structure is dipped in acid and loses 1% in weight each time it is dipped. The overall weight cannot be under 10 lbs so I would have to loop until the weight is about 10 lbs. Then find final weight depending on what the user has inputted prior to the structure being dipped (original weight).

my code so far:

Dim x As Long
Dim y As Long
Dim n As Long
Dim j As Long




If IsNumeric(TextBox1.Value) Then
    x = TextBox1.Text
        
    Do
    If j <= 10 Then Exit Do
    n = x * 0.01
    j = x - n
    Loop
    End If



Label2.Caption = Format(j, "###0.00")

I'm not really sure about what to do to make it work.
Any help is greatly appreciated.