Option Explicit
Private Const START_NUMBER = 13
Private Const END_NUMBER = 26
Private Const RATE = 1.008

Private Sub Form_Load()
    Dim number As Double
    Dim years As Long
    
    number = START_NUMBER
    Do Until number >= END_NUMBER
        number = number * RATE
        years = years + 1
    Loop
    
    MsgBox years
End Sub