Private Declare Auto Function GetPrivateProfileString Lib "Kernel32" _
   (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Integer, _
    ByVal lpFileName As String) As Integer

        Dim Folder1 As Integer = GetPrivateProfileString("Folders", _
          "OtonFolder", "Kein Ordner Gewaehlt",  Result, Result.Length, _
          "C:\Sprachlabor\Konfig.Ini")
        OtonFolder = Result.SubString(0, Folder1)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov