No frills ftp required

Give it a go
Hi all

Does anyone know a simple way of ftping using winsock I have the following code but the file never makes it over to the ftp server

Code:

---

Private Sub Form_Load()
' Connection Stuff
With Winsock1
    .RemoteHost = "ftp.opal.callmanagement.co.uk"
    .RemotePort = 21
    .Connect
    .SendData "USER username" & vbCrLf
    .SendData "PASS password" & vbCrLf
End With
End Sub

Private Sub Command1_Click()
Winsock1.SendData "STOR Filename.txt" & vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String

Winsock1.GetData Data, vbString
Debug.Print Data
End Sub

---

Can anyone help??