Известно количество осадков, выпавших за каждый день февраля. Подготовить лист для получения ответа на вопрос, верно ли, что общее количество осадков за этот месяц превысило соответствующее количество года? Общее количество осадков за февраль года
должно вводиться в отдельную ячейку. EXCEL

VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры (), а вторую процедуру разместите в любом доступном модуле, хоть в той  же форме.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.

Sub ()
    Dim s As Stringr
    s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
    DeleteChar s, "G"
    DeleteChar s, "K"
    MsgBox s
End Sub

Sub DeleteChar(ByRef s As String, c As String)
    'Удаляем из строки s символ c
    Dim k As Integer
    Do
        k = InStr(s, c)
        If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
    Loop While k > 0
End Sub

Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED

Pacal

 
function F() : integer; 
var   
k,i : integer; 
begin   
k := 0;   
for i := 100 to 999 do   
if (i mod 13 = 0) and (i mod 100 <> 3) then     
k := k +1;   
Result := k;   
end;   

begin 
writeln (f()); 
end.

 

const     
n = 30;  
var   
a : array [1..n] of integer;   
i,b : integer;   
r : boolean;       
begin 
readln (b);   
i := 1; 
r := false;   
While (not r) and (i <= n) do   
begin     
if a[i] = b then     
r := true;     
i := i +1;   
end;   
if r then   
writeln ('Есть') 
else   
writeln ('Нет');    
end.