2 Buttons, eine Prozedur, zwei Ausgaben

ich habe folgende Programmteile:

Private Sub CommandButton1_Click()
i = 1
Preise.Show
End Sub

Private Sub CommandButton2_Click()
i = 2
Preise.Show
End Sub

Private Sub TextBox1_Change()
Dim Txt
Txt = TextBox1.Text
If Txt = "" Then Exit Sub
If IsNumeric(Txt) = False Then GoTo ErrorHandler
If Len(Txt) = 4 Then
Txt = Left(Txt, 1) & "." & Right(Txt, 3)

'SK700_Testeinstellungen.Controls("Textbox" & i) = Txt <- so möchte ich das haben
SK700_Testeinstellungen.TextBox1 = Txt <- so funktioniert das
Unload Me
End If


Exit Sub
ErrorHandler:
Beep
MsgBox "Keine Zahl!", vbCritical
TextBox1.Text = ""
End Sub

Ich rufe mit 2 unterschiedlichen Buttons ein und dieselbe Prozedur auf. Hier gebe ich einen Preis ein.
Wenn ich mit Button1 die Prozedur starte, will ich damit den Preis in Textbox1 ändern. (i=1)
Wenn ich mit Button2 die Prozedur starte, will ich damit den Preis in Textbox2 ändern. (i=2)
hier folgt dann noch Button3, 4, ... (habe ich oben nicht berücksichtigt)

Aber das führt immer zu einem Fehler. Was mache ich falsch??

Danke

Norbert