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 StringDim FileNumber As LongDim 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 FunctionTrap: Close FileNumber FileNumber = FreeFile Open FilePath For Binary Access Read As FileNumber Result = Space(LOF(FileNumber)) Get #FileNumber, , Result Resume NextEnd Function