Leren programmeren: sigaret

Een sigarettenpapier heeft een dikte van 0.1 mm. Hoe dikwijls moet ik dubbelplooien om een dikte van 40.000 km te bereiken?

Private Sub cmdStart_Click()
Dim dikte As Single
Dim plooien As Single
dikte = 0.1
Do
dikte = dikte * 2
plooien = plooien + 1
Loop While dikte < 40000000000#
MsgBox "Na " & plooien & " keer plooien heb je " & dikte & " mm (of " & dikte / 1000000 & " km)"
End Sub