De la forma que te dije yo, en el código tu escribes esto
Código:
Comando = Split(txtLog.Text, " ")
Mientras que según lo que he visto, tu no quieres sacar el comando del txtLog, sino del txtCommand. Por tanto será:
Código:
Comando = Split(txtCommand.Text, " ")
Para la forma que dijo Anhur, me equivoqué con lo de las variables globales, porque creía que lo utilizabas de otra manera. El error está en:
Código:
frmClientMain.txtLog.Text = iPort
frmClientMain.txtLog.Text = sIp
frmClientMain.txtLog.Text = sPass
Tendrías que poner:
Código:
frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & iPort & vbCrLf
frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & sIP & vbCrLf
frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & sPass & vbCrLf
Por tanto, ahí están los dos errores.
Para alwar, si quieres ejecutar el comando MsgBox cuando lo escribes en tiempo de ejecución en un cuadro de texto, lo que tendrías que hacer, por ejemplo, sería:
Código:
Private Sub Command1_Click()
If LCase(Left$(text1.Text, Len("msgbox "))) = "msgbox " Then
If Len(text1.Text) <> Len("msgbox ") Then
MsgBox Right$(text1.Text, Len(text1.Text) - Len("msgbox "))
End If
End If
text1.Text = ""
End Sub