Coding

i am trying to make a program that when you type anything in text1 it codes that and puts something else in text2, like a = $ and b = @
help please

1) Make 2 texboxes

private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub

private Sub Text1_KeyDown(KeyCode as Integer, Shift as Integer)
If KeyCode = vbKeyA then Text2 = Text2 + "$"
If KeyCode = vbKeyB then Text2 = Text2 + "@"
End Sub