Выполненные действия Последствия несоблюдения
мер безопасности
Айдос несколько часов играл
в Копьютерные игры
Дана обедала BO время
просмотра Видео на
КОМПЬЮтере
Ha
уроке информатики
Дамир поменял клавиатуру и
МЫШЬ без
разрешения
учителя
Ученые считают, ЧТО
КОМПЬютерные игры влияют
на те участки мозга, которые
отвечают за УДОВОЛЬСТВие.
Поэтому детям Нравиться​

Держи VBA-версию в Excel 2003.

Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.

P.S. Что-то zip не грузится, код  - ниже:

procedure TForm1.Button1Click(Sender: TObject);
var
N1, N2, N3: Real;
begin
//Проверок на введённе значения для простоты не делаю
N1:=StrToFloat(Edit1.Text);
N2:=StrToFloat(Edit2.Text);
N3:=StrToFloat(Edit3.Text);

if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1;
if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2;
if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3;

Edit4.Text:=FloatToStr(N1);
Edit5.Text:=FloatToStr(N2);
Edit6.Text:=FloatToStr(N3);
end;

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