Skip to main content

Reading the content of text file using Visual Basic (VBA)

The below code snippet demonstrates how to read the text content from the specified file.

Dim content As String
content = ReadText("C:\MyFolder\MyFile.txt")

Code will generate an exception if file doesn't exist or cannot be read.

Function ReadText(filePath As String) As String

Dim fileNo As Integer

fileNo = FreeFile

Dim content As String

Dim isFirstLine As Integer
isFirstLine = True

Open filePath For Input As #fileNo

Do While Not EOF(fileNo)

Dim line As String

Line Input #fileNo, line

content = content & IIf(Not isFirstLine, vbLf, "") & line
isFirstLine = False

Loop

Close #fileNo

ReadText = content

End Function