Need Help With Loop Until in VBA

Sub Example()

Do
    If Range("A1").Value < Range("B1").Value Then
        Range("A1").Value = Range("A1").Value + 0.5
    End If
Loop While Range("A1").Value < Range("B1").Value

End Sub