Public Class Infos
   Private m_ApplicationName As String
   Private m_KeyName As String
   Private m_lpString As String
   Private m_FileName As String
   Property FileName() As String
       Get
         Return m_FileName 
       Set(ByVal value As String)
         m_FileName = value
   End Property
   Property lpString() As String
       Get
         Return m_lpString
       Set(ByVal value As String)
         m_lpString = value
   End Property
   Property ApplicationName() As String
       Get
         Return m_ApplicationName
       Set(ByVal value As String)
         m_ApplicationName = value
   End Property
   Property KeyName() As String
       Get
         Return m_KeyName
       Set(ByVal value As String)
         m_KeyName = value
   End Property
End Class
Sub WritePrivateProfileString(ByVal Pfad As String,ByVal Infos As Info)
   Dim inhalt As String
   inhalt = oInfo.ApplicationName & ";" & oInfo.KeyName & ";" &  oInfo.lpString _
     & ";" & oInfo.FileName
   My.Computer.FileSystem.Computer.WriteAllText(Pfad,inhalt,False)
End Sub
Function GetPrivateProfileString(ByVal Pfad As String)As Info
   Dim oInfo As New Info
   Dim inhalt As String = My.Computer.FileSystem.ReadAllText(Pfad)
   Dim oSplitted() As String = inhalt.Split(";")'Semikolon als Trennzeichen
   oInfo.ApplicationName = oSplitted(0)
   oInfo.KeyName = oSplitted(1)
   oInfo.lpString = oSplitted(2)
   oInfo.FileName = oSplitted(3)
   Return oInfo
End Function
 
'AufrufBeispiel(Schreiben):
   Dim oInfo As New Info
   oInfo.ApplicationName = "Meine Application"
   oInfo.KeyName = "H2D3E3B43E45G3"'Irgendwie sowas
   oInfo.lpString = "KA was da rein kommt"
   oInfo.FileName = "C:\MeineDatei"
   WritePrivateProfileString("C:\MeineIniDatei.ini",oInfo)
'AufrufBeispiel(Lesen):
   Dim oInfo As Info = GetPrivateProfileString("C:\MeineIniDatei.ini")
   Console.WriteLine("Meine Applikation heißt:" & oInfo.ApplicationName  & _
     vbNewLine & "Der Key ist:" & oInfo.KeyName & vbNewLine & "Sonstiges:" & _
     oInfo.lpString & vbNewLine & "Der Dateiname:" & oInfo.FileName)