Help. Trying To Make Game

[XCustoms]

Hello I Need A Bit Help Please.
Tryed To Code This For 1 Week Still Doesnt Work.
I Almost Done It. this Is My Code

Hoster:

Privat Sub Form_Load()
Sock.LocalPort = "3000"
Sock.Listen
End Sub

Privat Sub Form_KeyPress(KeyAscii As Integer)
Dim CarPos1 As String
CarPos1 = Car1.Top
If KeyAscii = 119 Then
Car1.Top = Car1.Top - 10
Sock.SendData CarPos1
End If
End Sub

Private Sub Sock_ConnectionRequest(ByVal requestID As Long)
Sock.Accept requestID
End Sub

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Dim CarPos2 As String
Sock.GetData CarPos2
Car2.Top = CarPos2
End Sub

Client:

Privat Sub Form_Load()
Sock.RemoteHost = "83.84.250.99"  ' My IP Address
Sock.RemotePort = "3000"
Sock.Connect
End Sub

Privat Sub Form_KeyPress(KeyAscii As Integer)
Dim CarPos2 As String
CarPos2 = Car2.Top
If KeyAscii = 119 Then
Car2.Top = Car2.Top - 10
Sock.SendData CarPos2
End If
End Sub

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Dim CarPos2 As String
Sock.GetData CarPos2
Car2.Top = CarPos2
End Sub

Private Sub Sock_Connect()
MsgBox("Connected")
End Sub

Theres An Error On It. But I Dont Know What It Is
Could Someone Please Help Me Thnx