'на форме TextBox       - Text1
'       и CommandButton - Command1
Dim mSumm As Double ' сумма
Dim mNum As Long 'счётчик сложений

Private Sub Command1_Click()
    Dim mPos As Long 'позиция обнаруженной цифры
    Dim mCnt As Long ' число цифр
    
    'проверка на число
    If IsNumeric(Text1) = False Then
        MsgBox ("введите число")
        Exit Sub
    End If
    'проверка на ноль
    If Text1 =  0  Then
        MsgBox ("число не должно быть нулём")
        Exit Sub
    End If
    'проверка на целое число
    If Fix(Text1) - Text1 <>  0  Then
        MsgBox ("число должно быть целым")
        Exit Sub
    End If
    'проверка на чётность (делится на 2 без остатка)
    If Fix(Text1 /  2 ) - Text1 /  2  <>  0  Then
        Exit Sub
    End If
    mCnt =  0 
    'поиск трёх пятёрок
    mPos = InStr( 1 , Text1, "5")
    Do While mPos <>  0 
        mCnt = mCnt +  1 
        mPos = InStr(mPos +  1 , Text1, "5")
        If mCnt =  4  Then Exit Sub
    Loop
    'суммирование
    If mCnt =  3  Then
        mNum = mNum +  1 
        mSumm = mSumm + Text1
        MsgBox ("Добавлено число ") & Text1
    End If
    'выдача результата
    If mNum =  3  Then
        MsgBox ("Сумма = ") & mSumm
    End If
End Sub