Mit End Of Anweisung meint VB.NET Das danach nichts mehr kommen darf...


Dim strText As String = "Hans W. Fritz"
Dim strTeile() As String
Dim intletzte As Integer = 0
Dim j As Integer = 0

For i = 0 To strText.Length - 1
If strText.Substring(i, 1) = " " Then
ReDim Preserve strTeile(j)
strTeile(j) = strText.Substring(intletzte, i - intletzte)
j += 1
intletzte = i + 1
End If