Watch for linewrap.

I need to edit a cell with a number, add a = before it, a + after it
and then the number from the cell to the right of it.

There was a similar post about taking a cell content and adding a
number that was asked for:

Sub CreateFormula()
Dim dblNum As Double, dblAdd As Double


dblNum = ActiveCell.Value
dblAdd = Application.InputBox("Please enter the number to add.",
Type:=2)
ActiveCell.Formula = "= " & dblNum & "+" & dblAdd & ""


End Sub

How do I adjust it to put in another adjacent cell instead of the
requested number?