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