String - Float Conversion 1

[selimsl]

Hi!

I have a string(a) which consists of a number(5) and a variable(z). I replace z with 2 using replace function.
and I want to get 7 as result(x). Is there any function to get right result.

Dim a As String
Dim x As Long
a = "(z + 5)"

a = Replace(a, "z", "2")
x = Val(a)

Thanks..

 

[three57m]

Try this:

Private Sub Command1_Click()
Dim a As String
Dim x As Long
a = "z + 5"

a = Replace(a, "z", "2")
x = CInt(Left(a, 1)) + CInt(Right(a, 1))
MsgBox x
End Sub

 

[strongm]

Dim a As String
Dim x As Long

a = "(z + 5)"
With CreateObject("MSScriptControl.ScriptControl")
.Language = "vbscript"
.ExecuteStatement ("z = 2") '
x = .eval(a)
End With
MsgBox x