Another Procedure

[dedub]

Seeing how you guys are WAY better than me at Procedures could you help me on this one. I have to execute this code in 5 different text boxes. How could I write a call to simplify everthing. The only thing different for each one is the text changes from text1.text to text2.text...ect. In other words, I know how to create the procedure to call this code, what I dont know how to do is change where the text1.text changes to text2.text ie... I cant call this code from Text2_MouseDown(.......

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo handler
If Button = vbRightButton Then
Dim subtract As Integer
subtract = InputBox("Please enter the amount you wish to subtract", "Subtract")
Text1.Text = Text1.Text - subtract
recalc'this is another procedure Im calling, ...disreguard
End If
handler:
Select Case Err.Number
    Case 13
        MsgBox "Please enter a number"
End Select
 
End Sub

[MartinLiss]

This is very similar to your other question.

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MouseDown Text1, Button
End Sub
 
 
Public Function MouseDown(txt As TextBox, btn As Integer)
    Dim subtract As Integer
    
    On Error GoTo handler
    
    If btn = vbRightButton Then
        subtract = InputBox("Please enter the amount you wish to subtract", "Subtract")
        txt.Text = txt.Text - subtract
        'recalc 'this is another procedure Im calling, ...disreguard
    End If
handler:
    Select Case Err.Number
        Case 13
            MsgBox "Please enter a number"
    End Select
 
End Function