Conversor de Texto en Visual Basic

Option Explicit
Dim x As Integer
Dim s As Integer
Dim matriz(5000) As Byte


Private Sub Command2_Click()
Shell (" start mailto:martinxyz@lycos.com")
End Sub

Private Sub Command3_Click()
MsgBox "ADIOS...SOIDA": Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then KeyAscii = 32 'no permite corregir...
s = s + 1
matriz(s) = KeyAscii
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Private Sub Command1_Click()
Cls
Dim f As Integer
For f = 0 To s - 1
Text2.Text = Chr(matriz(f)) & Text2.Text
Next
s = 0
For x = 0 To 9
matriz(x) = 0
Next
Text1.Text = ""
Text1.SetFocus
Clipboard.Clear
Clipboard.SetText Text2.Text 'lo copia al portapapeles _
listo para pegar en el mirc.
End Sub