Добрый день. немогу никак разобраться с кодом...  
Есть форма... на ней есть три текстбокса. Вношу в них числовые данные...в четвертом текстбоксе показывается их сумма:    
 
Private Sub costotpravki_Change()  
Dim a1 As Double  
Dim a2 As Double  
Dim A3 As Double  
a1 = costotpravki.Value  
a2 = pochtrashod.Value  
A3 = doprashod.Value  
zatraty0.Value = a1 + a2 + A3  
End Sub  
Private Sub pochtrashod_Change()  
Dim a1 As Double  
Dim a2 As Double  
Dim A3 As Double  
a1 = costotpravki.Value  
a2 = pochtrashod.Value  
A3 = doprashod.Value  
zatraty0.Value = a1 + a2 + A3  
End Sub  
Private Sub doprashod_Change()  
Dim a1 As Double  
Dim a2 As Double  
Dim A3 As Double  
a1 = costotpravki.Value  
a2 = pochtrashod.Value  
A3 = doprashod.Value  
zatraty0.Value = a1 + a2 + A3  
End Sub  
 
Далее, при нажатии кнопки данные из этих трех переношу на лист в таблицу, таким образом:    
WS111.Cells(i, 23).Value = costotpravki.Value  
WS111.Cells(i, 24).Value = pochtrashod.Value  
WS111.Cells(i, 25).Value = doprashod.Value  
 
Вносится на лист без ошибок. При следующей загрузке формы, при нажатии кнопки, данные этих текстбоксов должны заполняться из ячеек листа, куда их и вносил (то есть обратно на форму):  
costotpravki.Value = WS111.Cells(i, 23).Value  
pochtrashod.Value = WS111.Cells(i, 24).Value  
doprashod.Value = WS111.Cells(i, 25).Value  
 
но выскакивает ошибка несовпадение типов(на операциях сложения)  
и еще: данные вносятся в таблицу в столбцы с форматом денежный, а вносятся получается как текст. :(( Что не так?