Me parece que esto lo tienes mal.
Yo lo pondria
TbProducto_KeyPress en el evento enter del
TbProducto_Enter
Si realmente lo que quieres hacer es validar los datos al tener esa longuitud.
Has comprobado en depuracion la esjecucion de tu codigo?
Tambien puedes llamar al evento TbProducto_Enter(Me, EventArgs.Empty)
Código:
Private Sub TbProducto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbProducto.TextChanged
'Si llega a 13
If TbProducto.Text.Trim().Length = 13 Then
'Que envie un enter
SendKeys.Send("{Enter}")
End If
End Sub