Option Explicit

Private Sub Form_Load()
    Dim Archivo As String
    Dim ArchivoEnLinea As String
    Dim ArchivoPorParte As Variant
    Dim i As Integer
    
    Open "C:\wtf.txt" For Input As #1
        Archivo = Input(LOF(1), #1)
    Close #1
    
    ArchivoPorParte = Split(Archivo, vbCrLf)
    
    For i = 0 To UBound(ArchivoPorParte)
        ArchivoEnLinea = ArchivoEnLinea & ArchivoPorParte(i)
    Next i
    
    MsgBox ArchivoEnLinea
End Sub