Passing on a Variable Initialized on an UF

Hello all,

How do I use the result of i (i.e. value = 4) in below example in a change event on the same UF?
The example below gives me the following error: "application-defined or object-defined error"

Private Sub UserForm_Initialize()
i = ActiveSheet.Shapes(Application.Caller).Name - 118
End Sub

Private Sub TextBox1_Change()
Sheets("DBS").Range("A" & i).Value = TextBox1.Value
End Sub