Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim EncodedString As String = ToBase64(System.Text.Encoding.UTF8.GetBytes(TextBox1.Text + "|" + TextBox2.Text + "|" + TextBox3.Text))
        RichTextBox1.Text = EncodedString
    End Sub

    Public Function ToBase64(ByVal data() As Byte) As String
        If data Is Nothing Then Throw New ArgumentNullException("data")
        Return Convert.ToBase64String(data)
    End Function

    Public Function FromBase64(ByVal base64 As String) As Byte()
        If base64 Is Nothing Then Throw New ArgumentNullException("base64")
        Return Convert.FromBase64String(base64)
    End Function

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim DecodedString As String = System.Text.Encoding.UTF8.GetString(FromBase64(RichTextBox1.Text))
        RichTextBox2.Text = DecodedString
        Dim str() As String = Split(RichTextBox2.Text.ToString(), "|")
        TextBox4.Text = str(0)
        TextBox5.Text = str(1)
        TextBox6.Text = str(2)
    End Sub
End Class