Help! - VB

Формулировка задачи:

Всем привет!
Нужна помощь
Я не ас в 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 "Финансирование мероприятий всего".
Перечитал литературу, просмотрел кучу форумов, но все без толку. Очень прошу помочь. За ранее блогадарен

Решение задачи: «Help!»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton4_Click()
Dim a, sum As Currency, i&, notEmpty As Boolean
On Error Resume Next
For i = 7 To 11
  a = Controls("TextBox" & i).Text
  If a <> "" Then
    a = CCur(a)
    If Err > 0 Or a < 0 Then Label17.Caption = "Error": Exit Sub
    sum = sum + a
    notEmpty = True
  End If
Next
Label17.Caption = IIf(notEmpty, sum, "участник не нуждается в финансировании")
End Sub

                        