VB 6 Winsock

Формулировка задачи:

1) Как с помощью WinSock в VB 6 отправить готовый пакет на определённый айпи? Вот собственно сам пакет:

00 51 80 00 00 00 01 AF 00 07 6E 6F 62 69 6C 6C 00 00 06 61 64 6D 69 6E 00 00 18 5B 00 A9 68 98 A5 95 04 B4 A7 68 D4 1B 51 85 09 E1 76 1C 3E 72 8B D6 A4 00 18 31 30 2D 31 46 2D 37 34 2D 42 46 2D 38 38 2D 39 32 2D 30 30 2D 30 30 00 03 8F 00 88

2) как сделать так, что бы айпи считывало из Text3.Text я делал так:

Text3.Text = ip
tcpClient.RemoteHost = ip
tcpClient.RemotePort = 1973

и так

tcpClient.RemoteHost = Text3.Text
tcpClient.RemotePort = 1973

результата 0! А когда делал так

tcpClient.RemoteHost = "46.124.12.88"
tcpClient.RemotePort = 1973

то удалённая машина уведомляла, что подключение прошло успешно.

Решение задачи: «VB 6 Winsock»

textual
                            Листинг программы 
                        
tcpClient.RemoteHost = Text3
tcpClient.RemotePort = 1973