[2005] Problem with Chat Buffer

[admeech29]

Okay when I try to run this code it says the Error 1 Overload resolution failed because no accessible 'GetData' accepts this number of arguments.

So what should be changed?

  Private Sub Sock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Sock1.DataArrival
        Dim dat As String
        Sock1.GetData(dat, vbString)
        txtLog.Text = txtLog.Text & "Server :" & dat & vbCrLf
    End Sub

Thank you,
Adam