Interactive Shelled application

Hi to all,  I know that the following code segment will allow me to shell a command line and pipe the output to a text file. In regards to this segment of code, It only allows the user to input one-liner commands, like ping, netbios send, etc.  But I would like to create a dos-prompt like application for the internet.  Could anyone tell me how to modify the code to make it work over the internet? Commands like telnet would not work well cos its interactive, please help me...


Private Type STARTUPINFO
                          cb As Long
                          lpReserved As String
                          lpDesktop As String
                          lpTitle As String
                          dwX As Long
                          dwY As Long
                          dwXSize As Long
                          dwYSize As Long
                          dwXCountChars As Long
                          dwYCountChars As Long
                          dwFillAttribute As Long
                          dwFlags As Long
                          wShowWindow As Integer
                          cbReserved2 As Integer
                          lpReserved2 As Long
                          hStdInput As Long
                          hStdOutput As Long
                          hStdError As Long
                      End Type
                      '
                      Private Type PROCESS_INFORMATION
                          hProcess As Long
                          hThread As Long
                          dwProcessID As Long
                          dwThreadID As Long
                      End Type
                      '
                      Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
                          ByVal dwMilliseconds As Long) As Long
                      '
                      Private Declare Function CreateProcessA Lib "kernel32" ( _
                          ByVal lpApplicationName As Long, _
                          ByVal lpCommandLine As String, _
                          ByVal lpProcessAttributes As Long, _
                          ByVal lpThreadAttributes As Long, _
                          ByVal bInheritHandles As Long, _
                          ByVal dwCreationFlags As Long, _
                          ByVal lpEnvironment As Long, _
                          ByVal lpCurrentDirectory As Long, _
                          lpStartupInfo As STARTUPINFO, _
                          lpProcessInformation As PROCESS_INFORMATION) As Long
                      '
                      Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
                      '
                      Const NORMAL_PRIORITY_CLASS = &H20&
                      Const INFINITE = -1&
                      '
                     
                      Public Sub ExecCmd(cmdline$)
                      '
                      ' This executes an external windows program and waits for it to complete
                      '
                      Dim proc As PROCESS_INFORMATION
                      Dim start As STARTUPINFO
                      '
                      ' Initialize the STARTUPINFO structure:
                      '
                      start.cb = Len(start)
                      '
                      ' Start the shelled application
                      '
                      ret& = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
                      '
                      ' Wait for the shelled application to finish:
                      '
holdhere:
                          DoEvents
                          ret& = WaitForSingleObject(proc.hProcess, 5000)
                          If ret& <> 0 Then GoTo holdhere
                      '
                      ret& = CloseHandle(proc.hProcess)
                      End Sub
                     
                     
                      Sub main()
                      ExecCmd ("net send benb my message to you")
                      End Sub