Dim sInput As String = "AB" & vbCrLf & "CD" & vbCr & "EF" & vbLf & "GH" & vbCrLf & "LM"
'Normalizze
sInput = sInput.Replace(CChar(vbCr), CChar(vbCrLf))
sInput = sInput.Replace(CChar(vbLf), CChar(vbCrLf))
'Then
Dim BarCodeAsList As List(Of String) = (From element In sInput.Split(CChar(vbCrLf)) Where Len(Trim(element)) > 0).ToList