' VB.NET Public Sub iSimpleMacro() Dim lcString As String = "Sachin has scored 20/2 Runs" ' lcString = "Sachin has scored 12-2 Runs" ' lcString = "Sachin has scored 5*2 Runs" ' lcString = "Sachin has scored 8+2 Runs" Dim lcCode As String = iChrTran(lcString, "0123456789+-*/", "") lcCode = iChrTran(lcString, lcCode, "") Dim lcAO As String = iChrTran(lcCode, "0123456789", "") Dim lcNum1 As String = Left(lcCode, lcCode.IndexOf(lcAO)) Dim lcNum2 As String = lcCode.Substring(lcCode.IndexOf(lcAO) + 1) Dim lcResult As String = "{Cannot calculate}" Select Case lcAO Case "+" lcResult = (Val(lcNum1) + Val(lcNum2)).ToString Case "-" lcResult = (Val(lcNum1) - Val(lcNum2)).ToString Case "*" lcResult = (Val(lcNum1) * Val(lcNum2)).ToString Case "/" lcResult = (Val(lcNum1) / Val(lcNum2)).ToString End Select MsgBox(lcString.Replace(lcCode, lcResult)) End Sub Function iChrTran(ByVal cSearchedExpression As String, ByVal cSearchExpression As String, ByVal cReplacementExpression As String) Dim ichr As Integer = 0, retval As String = cSearchedExpression While ichr <= cSearchExpression.Length - 1 If IsNothing(cReplacementExpression) OrElse cReplacementExpression.Length = 0 Then retval = retval.Replace(cSearchExpression.Substring(ichr, 1), "") Else retval = retval.Replace(cSearchExpression.Substring(ichr, 1), _ cReplacementExpression.Substring(IIf(ichr <= cReplacementExpression.Length - 1, _ ichr, cReplacementExpression.Length - 1), 1)) End If ichr = ichr + 1 End While Return retval End FunctionGood Luck