Private Sub btnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportar.Click
        Try
            ' Obtengo los bytes de la imagen y del texto
            Dim archivoimagenByte = IO.File.ReadAllBytes("C:\Users\luchito\Desktop\villancicos huaraz.png")
            Dim archivotexto = System.Text.Encoding.UTF8.GetBytes(tbOriginal.Text.ToCharArray)
            ' Convierto los bytes de imagen y texto en string
            Dim exportar1 As String = Convert.ToBase64String(archivoimagenByte)
            Dim exportar2 As String = Convert.ToBase64String(archivotexto)
            ' Creo un archivo con una extension no usada 
            ' y escribo las dos variables separadas por enter
            Using sw As New IO.StreamWriter("c:\exportar.iop", False)
                sw.WriteLine(exportar1 & vbCrLf & exportar2)
            End Using
        Catch
            MsgBox(Err.Description)
        End Try
    End Sub
 
    Private Sub btnImportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportar.Click
        ' Obtengo la lectura del archivo exportado
        Dim sr As New IO.StreamReader("c:\exportar.iop")
        ' Separo los datos de la imagen y texto y lo asigno a la variable memoria
        Dim memoria() = sr.ReadToEnd().Split(vbCrLf)
        sr.Close()
        ' Convierto el texto de imagen en array de bytes al igual que el texto
        Dim imagenByte() As Byte = Convert.FromBase64String(memoria(0))
        Dim texto() As Byte = Convert.FromBase64String(memoria(1))
        ' Armo la imagen con los bytes y el texto tambien
        Using ms As New IO.MemoryStream(imagenByte, 0, imagenByte.Length)
            pbCopia.Image = Bitmap.FromStream(ms)
            tbCopia.Text = System.Text.Encoding.UTF8.GetString(texto)
        End Using
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim archivoimagenByte = IO.File.ReadAllBytes("C:\Users\luchito\Desktop\9.jpg")
        Dim archivoBinary As BinaryWriter = New BinaryWriter(File.Open("c:\jj.jj", FileMode.Create))
        archivoBinary.Write(archivoimagenByte.Length)
        archivoBinary.Write(archivoimagenByte)
        archivoBinary.Write(TextBox1.Text)
        archivoBinary.Close()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim archivoBinary As BinaryReader = New BinaryReader(File.Open("c:\jj.jj", FileMode.Open))
        Dim pictureLength = archivoBinary.ReadInt32
        Dim imgByte = archivoBinary.ReadBytes(pictureLength)
        Using ms As MemoryStream = New MemoryStream(imgByte, 0, imgByte.Length)
            PictureBox2.Image = Bitmap.FromStream(ms)
        End Using
        TextBox2.Text = archivoBinary.ReadString
        archivoBinary.Close()
    End Sub