Try something like

Code:
Function CheckValues(varComp1 As Variant, varComp2 As Variant, strCheckString As String) As Boolean

    CheckValues = Application.Evaluate(varComp1 & strCheckString & varComp2)
    
End Function

Sub Test()

    MsgBox CheckValues(strTempAry(ciclo, 5), V_AV, "<=")
    
End Sub