Не могу победить округления.EXCEL 2003 .VBA

[mire]

Здравствуйте!
Нижеследующий код приводит к тому ,что переменная ,например, больше миллиона вдруг округляется в большую сторону.Как победить.

Sub Макрос1()
Dim i As Integer
Dim n As Integer
Dim Schet As Single
Dim SchetSum As Single
iRow = 5
SchetSum = 0
 For i = 1 To iRow
  Schet = ThisWorkbook.Sheets("лист1").Range("A" + CStr(i)).Value
         SchetSum = Round(SchetSum + Schet, 2) 'накапливаем сумму
         ThisWorkbook.Sheets("лист1").Range("B" + CStr(i)).Value = CStr(SchetSum)
 Next i
  
End Sub

Заранее спасибо.

[mire]

Забывл указать,что достаточно лишь одного слагаемого со значеним больше миллиона и двумя знаками после запятой,чтобы результат был неверен.

[Sparkman]

Попробуйте вместо типа Single использовать Double

[mire]

Сообщение от Sparkman

Попробуйте вместо типа Single использовать Double

Спасибо,помогло.