Почему
..............
Public Sub ПоместитьЦифры(Len_str As Integer, sstr As Integer, ccol As Integer, Stroka As String)
If Len_str > 0 Then
col = ccol
For ii = 1 To Len_str
pos = Len_str - ii + 1
' вытянул цифру
cifra = Mid(Stroka, pos, 1)
' помещаем в шаблон
col = col - 4
Workbooks("Avanses_2005.xls").Sheets("Раздел 00101").Cells(sstr, col) = cifra
Next ii
End If
End Sub
.............................

' Найдем 1/3 суммы и раскидаем по строкам
sum22_1 = Round(sh_AvPl.Cells(i, 92) / 3, 0)
sum22_2 = Round(sh_AvPl.Cells(i, 92) / 3, 0)
sum22_3 = sh_AvPl.Cells(i, 92) - sum22_1 - sum22_2

len_gr22 = Len(Trim(Str(sum22_1)))
Call ПоместитьЦифры(CLng(sum22_1), 34, 141, CStr(sum22_1)) - тут оверлофф
len_gr22 = Len(Trim(Str(sum22_2)))
Call ПоместитьЦифры(CLng(sum22_2), 36, 141, CStr(sum22_2))
len_gr22 = Len(Trim(Str(sum22_3)))
Call ПоместитьЦифры(CLng(sum22_3), 38, 141, CStr(sum22_3))


Scio me nihil scire

<<Jojo®>>

нашел ошипку
Public Sub ПоместитьЦифры(Len_str As Integer , sstr As Integer, ccol As Integer, Stroka As String)

еще варианты есть ?

Scio me nihil scire

<<Jojo®>>

Len_str As Long

Scio me nihil scire

<<Jojo®>>