Try
            Dim Action As New Process
            Action.StartInfo.FileName = "C:\Winnt\system32\telnet.exe"
            Action.StartInfo.Arguments = " MeinDrucker 9000"
 
            Action.StartInfo.RedirectStandardInput = True
            Action.StartInfo.RedirectStandardOutput = True
 
            Action.StartInfo.UseShellExecute = False
            Action.StartInfo.CreateNoWindow = True
 
            Action.Start()
 
            Action.StandardInput.WriteLine("MeinCommunityName")
            Action.StandardInput.Flush()
 
            Action.WaitForExit()
 
            TextBox1.Text = Action.StandardOutput.ReadToEnd
            Action.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try