Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias _
   "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
   lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As _
   String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" _
    Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As _
    String) As Int32
        Dim myIniFile As String
        Dim sValue As String
        Dim lResult As Object
        Dim Meldung As String
        myIniFile = " C:\Test\Test.ini" 'durchsuchen der .ini
        Meldung = "Soll die Test.ini automatisch angepasst werden?"
        sValue = Space$(255)
        lResult = GetPrivateProfileString("Test", _
          "", sValue, Len(sValue), myIniFile) = 0 'wenn Eintrag nicht 
          ' gefunden-> MsgBox
        MsgBox(Meldung, MessageBoxButtons.YesNo, "Test.ini ist nicht" & _
          "konfiguriert!")