¿Cómo convertir una cadena en una expresión lógica en VBA?

Public Sub Test()

Dim str As String

str = "8lt;6"

If Application.Evaluate(str ) Entonces

MsgBox Chr(34) amp; str amp; Chr(34) amp " ¡La condición se mantiene!" amp; str amp; Chr(34) amp; " ¡La condición se mantiene!

Else

MsgBox Chr(34) amp; str amp; Chr(34) amp; " La condición se cumple. ¡No aguantes! "

Finalizar si

Finalizar sub.