文字列で渡された式

質問

質問です。
タイトルのままですが文字列で渡された式で
処理を決定させることはできるのでしょうか？
たとえば
============================
dim str as string = "10 > 5"
if strの文字列判定 then
msgbox("TRUE")
else
msgbox("FALSE")
end if
============================

回答No.2

finalstarforce

こういう感じでならできますが（AccessVBAで確認）。
式strが真の場合はTRUE、偽の場合はFALSEが表示されます（下の例の場合はTRUE）。

Public Sub strCheckTest()
Dim str As String
str = "10 > 5"
If Eval(str) Then
MsgBox ("TRUE")
Else
MsgBox ("FALSE")
End If
End Sub

お礼

昨日、頑張って調べた結果こういったものが出来ました！
返却値はInteger型になりましたけど・・・
Private Function strCheckTest(ByVal Expression As String) As Integer
Dim Sc As Object
Dim val As Integer
Sc = CreateObject("ScriptControl")
Sc.Language = "VBScript"
val = Sc.Eval(Expression)
Sc = Nothing
Return val
End Function
ありがとうございます。

回答No.1

process9

無理です。