Help with getting winsocket in VB 2008

Ok this code works in VB 05 not 08
Now i need help with this code:
Dim Data As String
Dim proCedure As String
sckMain.GetData(Data, vbString)
proCedure = txtLog.Text & Data & vbCrLf
proCedure = txtLog.Text
getdata overload because it doesn't accept that number of conversations.
Help plox

How to get winsocket in VB 08: http://www.youtube.com/watch?v=w8WtmCazc6E

Dim proCedure As String
sckMain.Close()
sckMain.Accept(e.requestID)
sckMain.Accept(e.requestID)
proCedure = txtLog.Text & "Connected to: " & sckMain.RemoteHostIP & vbCrLf
proCedure = txtLog.Text

Now i need help with this code:
Dim Data As String
Dim proCedure As String
sckMain.GetData(Data, vbString)
proCedure = txtLog.Text & Data & vbCrLf
proCedure = txtLog.Text
getdata overload because it doesn't accept that number of conversations.