Private Function GuardarVariables(NombreArchivo As String)
    Dim foo                 As Integer         'Número archivo
    Dim Texto1(99)          As String          'Reservamos 100 espacios para el Text1
    Dim Texto2(99)          As String          'Reservamos 100 espacios para el Text2
    Dim Texto3(99)          As String          'Reservamos 100 espacios para el Text3.
    Dim PosicionActual      As Long            'Variable que utilizaremos para saber cuál es la posición actual.
    Dim i                   As Integer
    
    foo = FreeFile                             'Proporciona un número de archivo libre.
    
    For i = 0 To Len(Text1)
        Texto1(i) = Mid$(Text1.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text2)
        Texto2(i) = Mid$(Text2.Text, i + 1, 1)
    Next i
    
    For i = 0 To Len(Text3)
        Texto3(i) = Mid$(Text3.Text, i + 1, 1)
    Next i
    
    Open NombreArchivo For Binary As #foo                   'Abre el archivo <NombreArchivo> para acceder en modo binario.
        PosicionActual = LOF(foo)                           'Obtiene el tamaño del archivo en bytes para obtener el primer byte vacío.
        
        For i = 0 To 99                                     '|
            PosicionActual = PosicionActual + 1             '| Posicion actual, cuando i = 0, obtiene el primer valor libre
            If Texto1(i) = "" Then                          '| Si la varible texto1 está vacía
                Put #foo, PosicionActual, 0                 '| Guarda en el archivo un valor 0
            Else                                            '|
                Put #foo, PosicionActual, Asc(Texto1(i))    '| Si no está vacía la variable guarda en valor ascii la letra del texto correspondiente.
            End If
        Next i
        
        'Se repite para la matriz Texto2
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto2(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto2(i))
            End If
        Next i
        
        'Se repite para la matriz Texto3
        For i = 0 To 99
            PosicionActual = PosicionActual + 1
            If Texto3(i) = "" Then
                Put #foo, PosicionActual, 0
            Else
                Put #foo, PosicionActual, Asc(Texto3(i))
            End If
            If i = 99 Then
                Stop
            End If
        Next i
    Close #foo
End Function

Private Function CargarVariables(NombreArchivo As String)
    Dim foo                 As Integer
    Dim Obteniendo          As Byte
    Dim Texto               As String
    Dim TamañoArchivo       As Long
    Dim PosicionActual      As Long
    Dim i                   As Integer
    
    foo = FreeFile
    
    Open NombreArchivo For Binary As #foo
        TamañoArchivo = LOF(foo)
        PosicionActual = TamañoArchivo - 300               'Se le resta 300 al tamaño del archivo por ser el resultado de la suma de los espacios reservados anteriormente
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text1.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                PosicionActual = PosicionActual + (100 - Len(Texto))
                Exit For
            End If
        Next i
        
        Text2.Text = Texto
        Texto = ""
        
        For i = 0 To 99
            Get #foo, PosicionActual, Obteniendo
            If Obteniendo <> 0 Then
                Texto = Texto & Chr$(Obteniendo)
                PosicionActual = PosicionActual + 1
            Else
                Exit For
            End If
        Next i
        
        Text3.Text = Texto
    Close #foo
End Function

Private Sub Command1_Click()
    GuardarVariables "archivo.exe"
End Sub

Private Sub Command2_Click()
    CargarVariables "archivo.exe"
End Sub