Winsock SendData

Hej, jag har en private sub som heter SkickaBild som ligger i dataarrival på min winsock. Detta är VB.NET.
Problemet är att det inte går att skicka data i och efter SkickaBild(). Och jag klurar inte ut varför (har testat med invoke och delegate) men datan skickas inte. All data kan dock skickas via en knapp!

Urdrag ur dataarrival:
Select Case strTemp(1)
Case "req"
Dim fInfo As New IO.FileInfo("send.jpg")
If fInfo.Exists = True Then Microsoft.VisualBasic.FileSystem.Kill("send.jpg")
SkickaBild()
Winsock1.SendData("pic|rdy") 'FUNKAR INTE, DATAN SKICKAS INTE

SkickaBild:
Public Sub SkickaBild()
Dim i As Integer

    Dim ReadNum As Integer
    Dim ReadData(2047) As Byte
    Dim ReadLength As Long

    ReadNum = 2

    PictureBox1.Image = Nothing : CaptureScreen() : PictureBox1.Image = oBackground : PictureBox1.Image.Save("send.jpg")
    FileOpen(ReadNum, "send.jpg", OpenMode.Binary)
    ReadLength = LOF(ReadNum)

    For i = 1 To CInt(ReadLength) \\ 2048
        FileGet(ReadNum, ReadData)
        'FileGet(ReadNum, DirectCast(ReadData, Array))
        Winsock1.SendData(ReadData)
    Next

    If ReadLength Mod 2048 \<\> 0 Then
        Dim ReadData2((CInt(ReadLength) Mod 2048) - 1) As Byte

        FileGet(ReadNum, ReadData2)
        'FileGet(ReadNum, DirectCast(ReadData2, Array))
        Winsock1.SendData(ReadData2)
        Winsock1.SendData(Encoding.ASCII.GetBytes("hejsanpadig") 'FUNKAR INTE, DATAN SKICKAS INTE
    End If

    FileClose(ReadNum)
End Sub