Всем привет!
Нужна помощь
Я не ас в VBA, пока учусь.
Возникла проблема как у предыдущего пользователя, но сделать также не получилось выдает ошибку. Вот код:

Private Sub CommandButton4_Click()
Dim a, b, c, d, e, sum As Single
Dim f As String
a = TextBox7.Text
b = TextBox8.Text
c = TextBox9.Text
d = TextBox10.Text
e = TextBox11.Text
If (a < 0) Or (b < 0) Or (c < 0) Or (d < 0) Or (e < 0) Then
f = "Error"
Label17.Caption = f
ElseIf (a = "") And (b = "") And (c = "") And (d = "") And (e = "") Then
f = "участник не нуждается в финансировании"
Label17.Caption = f
Else
f = a + b + c + d + e
Label17.Caption = f
End If
End Sub
Для наглядности макрос. смотреть UstrForm3 "Финансирование мероприятий всего".
Перечитал литературу, просмотрел кучу форумов, но все без толку. Очень прошу помочь. За ранее блогадарен

Всем спасибо большое! Помогло Val:f = Val(a) + val(b) + val(c) + val(d) + val(e), копейки не потерялись. =)