Newbie with VB6 winsock

[Calimorphos]

I'm asking for help about the winsock control to do a ftp client...
Here is my code:

Private Sub btnConnect_Click()
 
Dim buffer As String
Winsock1.RemoteHost = "ftpperso.free.fr"
Winsock1.RemotePort = 21
 
If Winsock1.Connect Then
MsgBox ("On est pas connecté")
End If
 
 
Winsock1.SendData ("USER *****")
Winsock1.Accept (buffer)
 
txtCmdRec.Text = buffer
 
End Sub

I'm sure that my script doesn't work but how learn without mistake ^^

Thx for your help