There are a number of ways to read all content from a text file. The function below uses only VB6's features to do that.
Public Function ReadAll(ByVal FilePath As String) As String
Dim FileNumber As Long
Dim Result As String
If FilePath "" Then
If Dir(FilePath) "" Then
FileNumber = FreeFile
Open FilePath For Input As FileNumber
On Error GoTo Trap
Result = Input(LOF(FileNumber), FileNumber)
On Error GoTo 0
Close FileNumber
End If
End If
ReadAll = Result
Exit Function
Trap:
Close FileNumber
FileNumber = FreeFile
Open FilePath For Binary Access Read As FileNumber
Result = Space(LOF(FileNumber))
Get #FileNumber, , Result
Resume Next
End Function