[cisky]

Oppure puoi fare una cosa di questo tipo senza creare l'oggetto Scripting..

' *** sFile      = Nome del file (Completo di percorso)
'     lRowNumber = Riga da leggere
'
Private Function f_GetFilesRowText(ByVal sFile As String, ByVal lRowNumber As Long) As String

    Dim iFile               As Integer
    Dim bRowFound           As Boolean
    Dim lRowCounter         As Long
    Dim sRowText            As String
    Dim sRet                As String

    iFile = FreeFile()
    
    Open sFile For Input As #iFile
        
        Do While Not EOF(iFile)                     ' *** Scorro sequenzialmente il file.
            Input #iFile, sRowText
            lRowCounter = lRowCounter + 1           ' *** Incremento la posizione della riga corrente
            
            bRowFound = (lRowCounter = lRowNumber)  ' *** Se sono sulla riga desiderata
            If bRowFound Then
                sRet = sRowText
                Exit Do
            End If
        Loop
        
    Close #iFile

    f_GetFilesRowText = sRet

End Function