Use all the ordinary numeric operators, like +, -, /, *, and ^.
Sub MyMacro ActiveCell.Value = (ActiveCell.Value * 2) - 1 End Sub