ho risolto mettendo al posto di <Not IsNothing(xlSheet.Cells.Range("A" + CStr(i)).Value.ToString)> nel ciclo while come condizione <Not IsNothing(xlSheet.Cells.Range("A" + CStr(i)).Value) = True>
yeahhhh