Hello guys

Am not an expert in programming but recently took up the challenge to create my own Stock Management System using VBA coding and a number of linked excel sheets receiving stock entry and sales data.Having a headache with the following coding below which is giving me a stack overflow error. I do have a form and once I scan an item's barcode into the Combobox3 the rest of the text boxes should be populated with the associated details in terms of the item code (textbox 2) Item Name(textbox3) Category(textbox4) etc. Stack overflow error 6 appears from Line no8. Will appreciate any assistance or suggestions that can help me get around this.


Private Sub ComboBox3_Change()

Me.ComboBox3.List = Worksheets("STOCK ITEM ENTRY REGISTER").Range("b2:b500").Value

If Me.ComboBox3.Value <> "" Then
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("STOCK ITEM ENTRY REGISTER")
Dim i As Long
Sh.Unprotect "CARLOS2018"

i = Application.Match(VBA.CLng(Me.ComboBox3.Value), Sh.Range("B:B"), 0)
Me.TextBox2.Value = Sh.Range("C" & i).Value
Me.TextBox3.Value = Sh.Range("E" & i).Value
Me.TextBox7.Value = Sh.Range("F" & i).Value
Me.TextBox4.Value = Sh.Range("G" & i).Value
Me.TextBox8.Value = Sh.Range("H" & i).Value
Me.TextBox5.Value = Sh.Range("I" & i).Value
Me.TextBox6.Value = Sh.Range("J" & i).Value
Sh.Protect "CARLOS2018"
End If


End Sub