[Visual Basic] Funktionen + Arrays + Zeichenketten + Instr

[Niklas S. (niklas_s)]

Ich habe folgende Funktion programmiert. Sie soll mit der übergebenen 
Zeichenkette Text das Array Inhalt füllen.

Text sieht so aus(Zeile: Inhalt):

1: Peter
2: Franz
3: Petra
4: Anna
5:

Die letzte Zeile ist leer.

Inhalt soll später so aussehen:

Inhalt(1) = Peter
Inhalt(2) = Franz
Inhalt(3) = Petra
Inhalt(4) = Anna

Wo liegt der Fehler?


Public Function TextInInhaltArray(ByVal Text as String) As Boolean
 Dim Zeilenstart as Integer
 Dim Position as Integer
 Dim ZeilenEnde As Integer
 TextInInhaltArray = False
 Dim Inhalt2 As String
 Zeilenstart = 1
 Position = 1
 ZeilenEnde=1
 While ZeilenEnde <> 0
  ZeilenEnde = InStr(Zeilenstart,Text,"\n",hbCompareText)
  If ZeilenEnde = 0 Then
   Exit While
  End If
  Inhalt2 = Mid(Text,Zeilenstart,ZeilenEnde-Zeilenstart)
  Redim Preserve Inhalt(1 to Position+1)
  If Inhalt(Position) <> "" Then
   Inhalt(Position) = Inhalt2
   Position = Position + 1
  End If
  Zeilenstart = ZeilenEnde + 1
 Wend
 TextInInhaltArray = True
End Function

[Niklas S. (niklas_s)]

Wo liegt das Problem?