'Lesen
Dim myIni As String = IO.File.ReadAllText("testini.txt")
'Splitten in Felder
Dim myIniParts() As String = myIni.Split({"##"}, StringSplitOptions.None)
 
'Füllen einer Dictionary (Reihung vorausgesetzt: Schlüssel, Wert)
Dim myIniDic As New Dictionary(Of String, String)
 
For i As Integer = 0 To myIniParts.Length - 2 Step 2
   myInidic.Add(myIniParts(i), myIniParts(i + 1))  
Next i