Barcode scanning - Adding Enter/Return/"CR" after scan

Hello,

I need to input numbers by scanning barcodes into an excel file.
Is there a way to "enter" down into the next cell row each time I scan one (i.e. Scan the # into B4, and the cursor will automatically go to B5 after)??
Instead of manually pressing enter after each one.
I tried this macro:

Private Sub TextBox1_Change()
Dim scaninput As String

scaninput = TextBox1.Value
If Len(scaninput) = 4 Then
ActiveCell.Value = scaninput
ActiveCell.Offset(1, 0).Select
End If

End Sub

Right now, after I scan the barcode, the cursor is going into the next column automatically (B4 --> C4).

I also know that you can get CR added on to the scan if you search for your specific scanner, but I do not have a permanent barcode scanner at this time.

Please help me, thank you!!