Visual Basic - Solo Expertos... Evaluar Dificil

mi problema es al hacer un eval
tengo la sintaxis :
IF 0 >9 THEN 9*(44.32/8)*2 ELSE 0*(44.32/8)*2 END IF
pero para poder analizarla con eval tengo que convertirla asi:
IF 1 >9 THEN X= 9*(44.32/8)*2 ELSE X= 0*(44.32/8)*2 END IF

para que pueda funcionar el siguiente codigo:

Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
A_Cadena = PCadena
A_TmpEval = ""
A_AntPos = 0
If InStr(A_Cadena, "IF") <> 0 Then
Set m = sc.Modules.Add("Module1")
m.AddCode "Private X"
m.AddCode A_Cadena
m.ExecuteStatement A_Cadena
L_Nom_Valor = m.eval("X")
Else

L_Nom_Valor = sc.eval(PCadena)
End If
Set sc = Nothing
Exit Function

el problema es saber si se puede evaluar la cadena sin tener que
ponerle X=, ya que las cadenas pueden variar muchisimo

En eso estoy atorado..

muchas gracias por sus respuestas..

Fijate con esto, a mi me funciona sin problemas:

Dim pCadena As String

pCadena = "IF 0 >9 THEN 9*(44.32/8)*2 ELSE 0*(44.32/8)*2 END IF"

If InStr(1, pCadena, "IF") Then
pCadena = Replace(pCadena, "END IF", ")")
pCadena = Replace(pCadena, "ELSE", ",")
pCadena = Replace(pCadena, "THEN", ",")
pCadena = Replace(pCadena, "IF ", "IIF(")
pCadena = Replace(pCadena, " ", "")
End If

Debug.Print pCadena

With ScriptControl1
.AddCode "Public Function IIf(Eval,Expr1,Expr2)" & vbCrLf & _
"If Eval Then IIf=Expr1 Else IIf=Expr2 End If" & vbCrLf & _
"End Function"

Debug.Print .Eval(pCadena)
End With

Muchas Gracias si funciono