Public Function BieuThuc(Dulieu As String)
Dim i As Integer
Dim Temp As String, temp1 As String
If Len(Dulieu) = 0 Then Exit Function
Dulieu = Replace(Dulieu, ",", ".")
temp1 = ""
For i = Len(Dulieu) To 1 Step -1
If Mid(Dulieu, i, 1) = ":" Then
temp1 = Right(Dulieu, Len(Dulieu) - i)
Exit For
End If
Next i
If temp1 = "" Then
temp1 = Dulieu
End If
For i = 1 To Len(temp1)
Select Case Mid(temp1, i, 1)
Case "x": Temp = Temp & "*"
Case "+", "-", "*", "/", "(", ")", ".", 0 To 9: Temp = Temp & Mid(temp1, i, 1)
End Select
Next i
BieuThuc = Evaluate(Temp & "*1")
End Function