Keypress Textbox

[gti_jobert]

Hi all,

I have a userform with a cmdButton, lstBox, and txtBox - the userform acts as a search tool for part numbers;

I am trying to make the form more usable, so when I press enter whilst in the txtBox it will call a search function - I have tried various methods but everytime I press 'enter' it moves focus to the cmdButton and doesn't recognise the KeyPress ascii of 'enter'.

I have successfully got it working on my listbox, see code below;

Private Sub lstResult_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    If KeyAscii = 13 Then
        If lstResult.Value <> "" And lstResult.Value <> "No Match Found" Then
            frmMain.cbxPartNumber.Value = lstResult.Text
            frmMain.txtBatchno.SetFocus
            Unload Me
        End If
    End If
    
End Sub

Any ideas or suggestions?

Thanks