VB2005でTPC/IP通信を以前おききしたものですが
通信の開始がうまくいかず、悩み中でしてご教授ください。
ホスト側、クライアント側のソースは以下のとおりで、
ローカル内では、うまくいくのですが外のPCからのグローバルでは
うまくいきません。210.XXX.XXX.XXX"は、ホストのグローバルIPアドレスで
ホスト、クライアント共に、ポートの開放は行ってあります。

クライアントの「tcp As New System.Net.Sockets.TcpClient(host, port) 」の部分で
{"対象のコンピュータによって拒否されたため、接続できませんでした。"}のエラーでとまります。

'----ホスト側--------------------------------------------------------
Dim host As String = "localhost"
Dim port As Integer = 2001
Dim ipAdd As System.Net.IPAddress = System.Net.IPAddress.Any
Dim listener As New System.Net.Sockets.TcpListener(ipAdd, port)
listener.Start()

'　----クライアント側------------------------------------------------
Dim tcp As System.Net.Sockets.TcpClient = listener.AcceptTcpClient()
Dim host As String
Dim port As Integer = 2001 ' サーバーのポート番号

host = "192.168.1.13" ' こちらではローカル内での通信OK
host = "210.XXX.XXX.XXX" ' こちらではローカル内、グローバルでも通信NG
Dim hostadd As System.Net.IPAddress = System.Net.Dns.Resolve(host).AddressList(0)
Dim tcp As New System.Net.Sockets.TcpClient(host, port)