Module Funktionen
    Public Function ReadLine(ByVal sFile As String, _
  ByVal nLine As Long) As String
 
        Dim sLines() As String
        Dim oFSO As Object
        Dim oFile As Object
 
        ' Verweis auf das FileSystemObject erstellen
        oFSO = CreateObject("Scripting.FileSystemObject")
 
        ' Existiert die Datei überhaupt?
        If oFSO.FileExists(sFile) Then
 
            ' Datei öffnen
            oFile = oFSO.OpenTextFile(sFile)
 
            ' Alles lesen und in Array zerlegen
            sLines = Split(oFile.ReadAll, vbCrLf)
 
            ' Datei schließen
            oFile.Close()
 
            ReadLine = sLines(nLine - 1)
        Else
            ReadLine = False
        End If
 
    End Function
End Module

Textbox1.Text = ReadLine("C:\Config.ini", 4)

MsgBox(ReadLine(My.Ressources.Config.ini, 4))