diff --git a/OOCalc Milesian.bas b/OOCalc Milesian.bas
index ea093d4..9a7bd87 100644
--- a/OOCalc Milesian.bas	
+++ b/OOCalc Milesian.bas	
@@ -66,7 +66,7 @@ PosDiv = 0
 		A = A + D
 		PosDiv = PosDiv - 1
 	Wend
-	While (A > D)
+	While (A >= D)
 		A = A - D
 		PosDiv = PosDiv + 1
 	Wend