Private Sub Command1_Click()
    Dim file As String
    Dim Msg As String
    
    Dim fileno As Integer
    Dim i As Integer
    
    Dim t(10000000) As Byte
    
    file = "C:\Archivo.txt"
    fileno = FreeFile()
    
    Open file For Binary As fileno
        For i = 1 To FileLen(file)
            Get fileno, i, t(i)
            Msg = Msg + Chr(t(i))
        Next
    Close fileno
    
    Text1.Text = Msg
End Sub