Option Explicit

Private Function CzytajPlik(sciezka As String) As String

Dim fso As Object
Dim plik As Object
Dim odczytaneLinie As String
Dim licznikLinii As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(sciezka)) Then
    Set plik = fso.OpenTextFile(sciezka, 1) 'otwarcie do odczytu
Else
    MsgBox "Nie znaleziono pliku : " & sciezka
    Exit Function
End If

licznikLinii = 1

Do While Not plik.AtEndOfStream
    If licznikLinii = 1 Then
        odczytaneLinie = plik.readline
    Else
        odczytaneLinie = odczytaneLinie & vbCr & plik.readline
    End If
    licznikLinii = licznikLinii + 1
Loop

plik.Close

CzytajPlik = odczytaneLinie

End Function

Public Sub WypelnijTextBox()

TextBox.Text = CzytajPlik("c:\test.txt")

End Sub