vba 如何把字符串轉化為邏輯表達式？

Public Sub Test()

Dim str As String

str = "8<6"

If Application.Evaluate(str) Then

MsgBox Chr(34) & str & Chr(34) & " 條件成立!"

Else

MsgBox Chr(34) & str & Chr(34) & " 條件不成立!"

End If

End Sub