function(s as integer,l as integer)
if лист1.cells( 1 , 1 ).value then ' если выполняется условие считанное с ячейки
msgbox("работает") 
end if

Метод ReplaceLine 
Замещает одну строку программы другой. 

Синтаксис 
объект.ReplaceLine(строка, текст) 

With Application.ActiveWorkbook.VBProject.VBComponents("main").CodeModule
.DeleteLines  15 
.InsertLines  15 , st
End With
If CBool(t >  0 ) = True Then
MsgBox ("УРА")
End If

Sub main()
 s = uslovie( 2 ,  1 ,  3 )
End Sub

Function uslovie(t As Integer, k As Integer, l As Integer)
Dim flag
flag = Evaluate("(" & Replace(Replace(Replace(Replace(Лист1.Cells( 1 ,  1 ), _
                      "k", k), "t", t), "l", l), "and", ")*(") & ")")

If flag Then
   MsgBox ("условие выполнено")
 Else
   MsgBox ("условие НЕвыполнено")
End If

End Function

Sub main()
 s = uslovie( 2 ,  0 ,  3 )
End Sub

Function uslovie(t As Integer, k As Integer, l As Integer)
Dim flag
flag = Evaluate(Replace(Replace(Replace(Лист1.Cells( 1 ,  1 ), _
                      "k", k), "t", t), "l", l))

If flag Then
   MsgBox ("условие выполнено")
 Else
   MsgBox ("условие НЕвыполнено")
End If

End Function

Sub main()
peredat
S = uslovie( 1 ,  2 ,  3 )
End Sub
Sub peredat()
Dim st As String
st = "if " & Лист1.Cells( 2 ,  1 ).Value & " then"
With Application.ActiveWorkbook.VBProject.VBComponents("main").CodeModule
.DeleteLines  14 
.InsertLines  14 , st
End With
End Sub
Function uslovie(t As Integer, k As Integer, l As Integer)
If t >  0  Then
MsgBox ("выполняется условие")
End If
MsgBox ("расчет окончен")
End Function

syntax error