Dim line as String
 
Using sr As New IO.StreamReader("irgendeinetxtdatei.txt", _
  System.Text.Encoding.Default)
 
Do Until sr.EndOfStream = True
 
line = sr.ReadLine()
 
Dim sItem() As String = line.Split(CChar("*"))
ReDim Preserve sItem(6)
 
textbox1.text = sitem(0)
textbox2.text = sitem(1)
textbox3.text = sitem(2)
textbox4.text = sitem(3)
textbox5.text = sitem(4)
textbox6.text = sitem(5)
textbox7.text = sitem(6)
 
Loop