Private Function Evaluation (ByVal strExp as string) as Double
Dim oExcel As New Excel.Application
Dim oSheet As Excel.WorkSheet
oExcel.Workbooks.Add
Set oSheet=oSheet.ActiveSheet
oSheet.Cells(1,1)=”=” & strExp
Evaluation=oSheet.Cells(1,1)
oExcel.ActiveWorkbook.Close False
if Not oSheet is nothing Then
set oSheet = Nothing
End if
if not oExcel is nothing Then
oExcel.Quit
End if
oExcel.Quit
End Function