Ms Script control, me da un error

[{_The_Alwar_}]

Weno, tube mirando este control que parece ser muy util, Hice un pequeño programa, en el cual escribiera una orden me la ejecutara pero me da un error.

Código [Seleccionar] Expandir

Dim sCodigo As String
Private Sub txtCmd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sCodigo = txtCmd.Text
txtCmd.Text = ""
txtLog.Text = App.Path & ">" & sCodigo & vbCrLf
[color=Yellow]Consola.AddCode sCodigo[/color]
Consola.Run "cmd"
End If
End Sub

Al darle a intro deberia de ejecutar la linea y pasar el texto al otro text agregando la ruta del programa como una consola de dos.

[{_The_Alwar_}]

ya lo solucione, me sobraban comillas.... por cierto saben de algun manual sobre VBScript? esk si voy a acer un programa que funcione con eso debo conocer el lenguaje para saber que ponerle no?