[Tasos]

Καλημέρα σε όλους!

Βασίλη χρησιμοποίησε:

Function NumberFromTextFile()
    With CreateObject("Scripting.FileSystemObject")
        With .OpenTextFile("c:\TextFile1.txt", 1, -1) 'αν το αρχείο έχει κωδικοποίηση Unicode  _  
                                                                       τότε προσθέτουμε το όρισμα -1 στο τέλος.
            NumberFromTextFile = Trim(.ReadLine)
            .Close
        End With
    End With
End Function

Χρήση: =NumberFromTextFile()


Καλή συνέχεια!

Τάσος