Try the code below. When you add 2 Currency values and the result is bigger than
(2^31)/10000 the number you get is not expected, is like an overflow.
It does not matter if the numbers you are adding are smaller or bigger than
(2^31)/10000  (like problems because the result needs more than 4 bytes)
(3 different patterns to choose in the code by removing REMs)

I guess this bug should also happen in other OSs

REM  *****  BASIC  *****
REM P0WER(2;31) = 2.147.483.648      (using the "." as thousand separator)
REM POWER(2;31)/10000 = 214.748,3648

Const inc As Currency = 1
Const basenumber As Currency = 214745
Const topnumber As Currency = 214750

REM	Const inc As Currency = 2000
REM	Const basenumber As Currency = 300000
REM	Const topnumber As Currency = 310000

REM	Const inc As Currency = 300000
REM	Const basenumber As Currency = 300000
REM	Const topnumber As Currency = 1000000

Sub Main
	Dim NewTotalPrice As Currency
	Dim OldTotalPrice As Currency
	
	OldTotalPrice = basenumber
	Do	While OldTotalPrice < topnumber
		NewTotalPrice = OldTotalPrice + inc
		MsgBox "Adding " & inc & " to " + OldTotalPrice + " results " & NewTotalPrice
		OldTotalPrice = NewTotalPrice
	Loop

End Sub