Attribute VB_Name = "ModCalc"
'*************************************************************************
'**模 块 名：ModCalc
'**说    明：字符串算式转换为VB语句并计算结果
'**创 建 人：马大哈
'**日    期：2007年1月14日
'**修 改 人：
'**日    期：
'**描    述：摘于网络
'**版    本：V1.0
'*************************************************************************
Option Explicit

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
    ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Public Function Calc(ByVal x As String) As String
    ExecuteLine "dim x as double"
    ExecuteLine "x= " & x
    ExecuteLine "clipboard.settext x"
    Calc = Clipboard.GetText
End Function