I've been trying to send a file for more then 3 days but couldnt make it the file is very small so the size should not be a problem

This code is where I try to send the file I think it works fine
but my problem I guess is with receiving the file and saving it somewhere

Code:
Dim Data As String

Open path For Binary As #1 'path is some dir to a file

Do While Not EOF(1)
Data = Input(chunk, #1) ' sending the file in parts chunk = 8000
ws.SendData "File#"  & Data

DoEvents
Loop

ws.SendData "#" & "End"
Close #1
This code is for receiving the file

Code:
Private Sub ws1_DataArrival(Index As Integer, ByVal bytesTotal As Long)


Dim sData As String
Dim Data() As String

ws(Index).GetData sData
Data() = Split(sData, "#")


Select Case Data(0)
    Case "File"
    Open "thepath" For Binary As #1
    Put #1, , Data(1)
     

    Case "End"
    Close #1
End Select
Shouldnt this work???