ONKey

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?