[Tasos]

Καλημέρα σε όλους!
Αγαπητέ Στέλιο, δοκίμασε:

Option Explicit

Sub test()
    Dim MyText As String
    MyText = ReadFromTextFile(TextFileName:="c:\test.txt")
    Debug.Print MyText
End Sub

Function ReadFromTextFile(TextFileName As String) As String
    With CreateObject("ADODB.Stream")
        .Open
        .Type = 2    ' Κείμενο
        .Charset = "Unicode"
        .LoadFromFile (TextFileName)
        ReadFromTextFile = .ReadText
        'Η παρακάτω γραμμή κάνει ότι κάνει και η συνάρτηση σου στο σημείο(keimeno = keimeno & " " & sFileText):
        'ReadFromTextFile = Replace(oStream.ReadText, vbNewLine, " ")
        .Close
    End With
End Function

Ελπίζω να σε εξυπηρετεί!

Φιλικά

Τάσος