Sub CalcSumChange()
Dim maxAdd As Double
Dim maxTake As Double
Dim minChange As Double


maxAdd = txtSumAdd.Value
maxTake = txtSumTaking.Value
minChange = Worksheets("Параметры счетов").Range("g23").Value

'выполнение проверки сумм пополнения / снятия условиям
'присвоение "знака" движения сумм по счету
If cbx1 = "Пополнение" And Len(txtSum1) >  0  Then
If Abs(txtSum1.Value) > maxAdd Then
txtSum1.Value = Format(Abs(maxAdd), "standard")
MsgBox "Сумма пополнения не должна превышать " & Format(Abs(maxAdd), "standard")
ElseIf Abs(txtSum1.Value) < minChange Then
MsgBox "Минимальная сумма пополнения " & Format(minChange, "standard")
txtSum1.Value = Format(minChange, "standard")
Else: txtSum1.Value = Format(Abs(txtSum1), "standard")
End If
ElseIf Len(cbx1) >  0  And Len(txtSum1) >  0  Then
If Abs(txtSum1.Value) > maxTake Then
txtSum1.Value = Format(-Abs(maxTake), "standard")
MsgBox "Сумма cнятия не должна превышать " & Format(Abs(maxTake), "standard")
ElseIf Abs(txtSum1.Value) < minChange Then
MsgBox "Минимальная сумма снятия " & Format(minChange, "standard")
txtSum1.Value = Format(-minChange, "standard")
Else: txtSum1.Value = Format(-Abs(txtSum1), "standard")
End If
Else: txtSum1.Value = Format( 0 , "standard")
End If

If cbx2 = "Пополнение" And Len(txtSum2) >  0  Then
If Abs(txtSum2.Value) > maxAdd Then
txtSum2.Value = Format(Abs(maxAdd), "standard")
MsgBox "Сумма пополнения не должна превышать " & Format(Abs(maxAdd), "standard")
ElseIf Abs(txtSum2.Value) < minChange Then
MsgBox "Минимальная сумма пополнения " & Format(minChange, "standard")
txtSum2.Value = Format(minChange, "standard")
Else: txtSum2.Value = Format(Abs(txtSum2), "standard")
End If
ElseIf Len(cbx2) >  0  And Len(txtSum2) >  0  Then
If Abs(txtSum2.Value) > maxTake Then
txtSum2.Value = Format(-Abs(maxTake), "standard")
MsgBox "Сумма cнятия не должна превышать " & Format(Abs(maxTake), "standard")
ElseIf Abs(txtSum2.Value) < minChange Then
MsgBox "Минимальная сумма снятия " & Format(minChange, "standard")
txtSum2.Value = Format(-minChange, "standard")
Else: txtSum2.Value = Format(-Abs(txtSum2), "standard")
End If
Else: txtSum2.Value = Format( 0 , "standard")
End If

If cbx3 = ..... 'и так для всех 6 комбобоксов и текстбоксов
End If

txtTotalSumChange.Value = Format(CDbl(txtSum1) + CDbl(txtSum2) + CDbl(txtSum3) + CDbl(txtSum4) + CDbl(txtSum5) + CDbl(txtSum6), "standard")

TotalSum

End Sub

sub cntrls ()
dim stri as string
dim datei as TextBox
dim i as integer

for i= 1  to  6 
stri = "frmMain.txtDate" & i +  1 
Set datei.Caption = stri
next i

end sub

Debug.Print Me.Controls("txtName1").Text

sub cntrls ()
dim stri as string
dim datei as date
dim i as integer

for i= 1  to  6 
stri = "txtDate" & i +  1 
datei=frmMain.Controls(stri)
next i

end sub