Public Class Form1
Dim strAccount As String
Dim strCharacter As String
Private Sub btnVariables_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVariables.Click
strAccount = txtAccount.Text
strCharacter = txtCharacter.Text
End Sub

Private Sub btnTransfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransfer.Click
My.Computer.FileSystem.CopyDirectory("C:\Program Files (x86)\World of Warcraft\WTF\Account\SENA69", "C:\Program Files (x86)\World of Warcraft\WTF\Account\" & strAccount, True)
My.Computer.FileSystem.CopyDirectory("C:\Program Files (x86)\World of Warcraft\WTF\Account\SENA69\Thalaria", "C:\Program Files (x86)\World of Warcraft\WTF\Account\" & strAccount("\ & strCharacter"), True)
End Sub
End Class

Encryption / Decryption Key