Программа, требующая ввод email и пароль - VB

Формулировка задачи:

Всем привет! Делаю прогу, в которую надо вводить логин и пароль. Всё бы хорошо... Итак, там поле под логин текстбокс1, под пароль - текстбокс2 и кнопка - комманд1 и текстбокс3 под инфу То есть, чел ввёл мейл, пароль, нажал на кнопку и получил в третьем поле инфу Всё бы хорошо, да вот нифига не получается.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
If Text1.Text = e Then Text6.Text = "3"
End Sub
 
Private Sub Form_Load()
Dim e As String
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!#$%^&*()+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

Люди добрые, e - это переменная для емейла, темплэйт запрещает всякую фигню, а вот при компиляции включаю прогу значит - ввожу напр. removed@mail.ru, пароль заданный, жму кнопку и ничерта не выводится в текстбокс3. Что делать? Помогите кто чем может - кодом, ссылкой, советом...

Решение задачи: «Программа, требующая ввод email и пароль»

textual
                            Листинг программы 
                        
Option Explicit
Dim e As String