Pq simplemente no usas un contador, q inicie en '0' cuando comiences las lecturas y se vaya incrementando conforme vayas leyendo?
algo asi como:
Código:
Dim i As Integer = 0
//Inicia Proceso de Lecturas
... Sub Lectura ()
ObjEscribe = File.AppendText("\CK_FFS\invent.txt")
ObjEscribe.WriteLine(txtembarque.Text + txtcodigo.Text)
i++
//Muestra el resultado de lectura en el label
if(i>0)
lbcajas.Text = i.ToString()
End Sub