check = CBool(Evaluate(st))

If t = True And k = True And l = True Then

If t And k And l Then

Sub main()
    s = uslovie( 1 ,  2 ,  3 ) ' как это соотносится с "k As Boolean, l As Boolean"?
End Sub

Function uslovie(t As Integer, k As Boolean, l As Boolean)
    Dim st As String

    st = "t" + Лист1.Cells( 2 ,  1 ).Value
    'MsgBox st

    st = CVar(t & Лист1.Cells( 2 ,  1 ).Value)
    MsgBox st

    Dim check

    check = CBool(st) ' заменить на check = CBool(Evaluate(st))
    MsgBox check

    ' замените на If t And k And l Then следующую строку
    If t = True And k = True And l = True Then ' разберитесь наконец какого типа у Вас t, k и l
        MsgBox ("работает условие")
    End If
    ' а где возврат значения?
End Function

st = "4 in(5,6)" ' или пишу любую другую чушь
check = CBool(Evaluate(st)) ' Evaluate возвращает сообщение об ошибке, а CBool преобразует его в True

st = "4 in (5,6)"
check = Evaluate(st)
Debug.Print check

st = "4 in(5,6)" ' или пишу любую другую чушь

st = "3 in (5,6)"
check = Evaluate(st)
Debug.Print check