se hai veramente scritto
If TotalCrt.Count >= 2 Then GoTo 45
e subito dopo
IfTotalCrt.Count=2Then BW_Elabora.RunWorkerAsync()
la seconda riga non verrà mai eseguita
non dico di postare 18 milioni di righe, ma qualcosa intorno alla routine incriminata sì.
e togli quel goto(45? ancora i numeri di riga? )