textboxları tek bir adda toplama

[acar6783]

Hayırlı geceler,

Formda 3 adet textbox var ve bunların adları :
adet - gün - indirim

ve yine clasmodulle oluşturduğum sayısal numlock klavye mevcut.
Numlock klavye ile bu textboxlara veri giriyorum.
Fakat öyle birşey yapmalıyım ki;

Ben hangi textboxı seçmişsem numlocka bastığımda o textboxa veri girsin .

myFrm.[COLOR="Red"]aktiftextbox[/COLOR].Value=....

 

[acar6783]

Public WithEvents aktiftextbox As msforms.TextBox


Private Sub aktiftextbox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Set aktiftextbox = satis.Controls(satis.indirim.Name)
End Sub

Bu şekilde bir claasmodul oluşturup.
userform intilize ye de

Dim aktiftextbox As New Class1

Yazdım ama sonuç alamadım.
Önersi olan varmıdır?