ONKey

I am trying to write a code using the Onkey for F1.
What I want to do is when the F1 key is pressed it will automatically add the text in textbox602 to the active or selected text box on a user form. Is it possible?

Private Sub UserForm_Initialize()
Application.OnKey "{F1}", "CH16a"
End sub

Sub CH16a()
Active.TextBox.Value = Active.TextBox.Value & vbNewLine & TextBox602.Value
End Sub

I am moving toward this direction

Sub CH16a()
Dim Txtref As Variable
Txtref = Me.Frame68.ActiveControl.Name
Textref.SetFocus
Controls(Txtref).Value = Txtref.Value & vbNewLine & Sheets("formulas").Range("Z120")
'ActiveControl.Value = ActiveControl.Value & vbNewLine & Sheets("formulas").Range("Z120")
End Sub

but it is still not working

Ok I am gettign closer I can get the CH16sub to work but the the Inkey feature

Sub CH16a()
Dim Txtref As Variant

Txtref = Me.Frame68.ActiveControl.Name

MsgBox Txtref
With Me.Controls(Txtref)
    .Text = vbNewLine & TextBox602.Value
End With

End Sub

I have multiple page and frames is there a way I can get this to be unerversial to the whole form?

Here was my solution, although I did not use the onkey I used key down. I also found out that excel is limited with creating shortcut keys due to some focus issues. There was a solution but I did not understand it fully to imlement it.


For each textbox I had to use this code

Private Sub TextBox601_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyF1 Then FM80F1
    If KeyCode = vbKeyF2 Then FM80F2
    If KeyCode = vbKeyF3 Then FM80F3
    If KeyCode = vbKeyF4 Then FM80F4
    If KeyCode = vbKeyF5 Then FM80F5
    If KeyCode = vbKeyF6 Then FM80F6
    If KeyCode = vbKeyF7 Then FM80F7
    If KeyCode = vbKeyF8 Then FM80F8
    If KeyCode = vbKeyF9 Then FM80F9
    If KeyCode = vbKeyF10 Then FM80F10
    If KeyCode = vbKeyF11 Then FM80F11
    If KeyCode = vbKeyF12 Then FM80F12
    
    If KeyCode = KeyANSI17 & vbKeyQ Then FM80C1
    If KeyCode = KeyANSI17 & vbKeyW Then FM80C2
    If KeyCode = KeyANSI17 & vbKeyE Then FM80C3
    If KeyCode = KeyANSI17 & vbKeyR Then FM80C4
    If KeyCode = KeyANSI17 & vbKeyT Then FM80C5
    If KeyCode = KeyANSI17 & vbKeyY Then FM80C6
    If KeyCode = KeyANSI17 & vbKeyU Then FM80C7
    If KeyCode = KeyANSI17 & vbKeyI Then FM80C8
    
End Sub

This was the procedure
Note that I have to use a different procedure for every frame I had

'############################ c codes Frame 80 ##################################
Sub FM80C1()
Dim Txtref As Variant
Dim txt As String
Txtref = Me.Frame80.ActiveControl.Name


txt = Me.Controls(Txtref).Value
With Me.Controls(Txtref)
    .Text = txt & vbNewLine & TextBox614.Value
End With
End Sub