Split

Per evitare che usando questa funzione si crei un'ultima riga vuota, si imposteranno così i parametri:

sub-stringa = Split(stringa, gbNewline, Null, True)

In questo codice si potranno notare due casi:

Public Sub Main()

 Dim t As String = "aaa bbb ccc\n"
                   "ddd eee fff\n"
                   "ggg hhh iii\n"
 Dim ss As String[]

' Così la riga vuota finale è presente:
 ss = Split(t, gb.NewLine)

 For Each s As String In ss
   Print s
 Next
 Print "-------"

' Così la riga vuota finale non è presente:
 ss = Split(t, gb.NewLine, Null, True)

 For Each s As String In ss
   Print s
 Next
 Print "-------"

End