Dim sr As New StreamReader(MeinPfad)
Dim txt As String=""
Dim MyData() As String
Do Until (sr.Peek <0)
txt=sr.Readline() ' Zeile einlesen
MyData=txt.Split(";")
textBoxName1.Text=MyData.GetValue(0) ' <- Da! Fehler, wenn Leerzeile gefunden
textBoxName2.Text=MyData.GetValue(1)
' usw. ; Habe ne For-Schleife drin, da ab MyData.Getvalue(4) die Länge variabel 
' ist
sr.close

 
' Nach txt=sr.Readline()
If txt="" Then
Goto TryAgain
End If ' TryAgain ist dann vor txt=sr.Readline!
'rest code...; der läuft!
sr.close

 
Dim sr As StreamReader
Dim sw As StreamWriter
Dim MeineDatei As String
' Die "News" lass ich jetzt mal weg...
' Ich lese mit txt=sr.Readline, splitte...
' Setze dann:
Dim SuchString As String
Dim NeuString As String
SuchString = MeineDaten ' MeineDaten ist das gesplittete Zeug in einem String 
' -> Nam1;Nam2;...
NeuString=txt.Remove(txt.IndexOf(SuchString), Suchstring.Length) ' So in der 
' Art; kann sein, dass ich was vergessen habe
sr.close
File.Delete(Pfad)
sw.Write(NeuString) ' sw: Neue Datei "Pfad" ; hab auch WriteLine
sw.close