tbKol = ""
tbSum = ""
End Sub
Private Sub tb32_Change()
Private Sub tb33_Change()
Private Sub tb34_Change()