tilføje til formel

Hej

jeg vil gerne tilføje noget til nogle formeler jeg har i et regneark.

ideen var at markere de celler hvor formlerne, der skal rettes, er i. lave en inputbox med det der skal tilføjes, og koble de to ting sammen.

Desværre kommer der en fejl, som jeg ikke kan gennemskue, er der nogle der kan hjælpe.

-->kode
Sub ReadRangeFormula()
Dim vRNG(), x As Long, y As Long
Dim rg As Range
Set rg = Selection
ReDim vRNG(rg.Rows.Count, rg.Columns.Count)

tilføj = InputBox("Indtast det der skal føjes til formlen fx." & """" & "*1,05" & """"
For x = 1 To rg.Rows.Count
    For y = 1 To rg.Columns.Count
        If rg(x, y).Formula <> "" Then
'            MsgBox rg(x, y).Value
            ny_formel = rg(x, y).Formula & tilføj
            MsgBox ny_formel
            rg(x, y).Formula = ny_formel
        End If
    Next
Next
End Sub
<-- kode

Mvh Axiom