Public Function SaveFile(ByVal FileName As String, ByRef Buffer() As Byte, ByVal OverWrite As Boolean) As Boolean
  ' Save a bytearray to a file
  ' Returns True if file is saved, otherwise returns false
  ' Notice: Exception handling is missing!
  If My.Computer.FileSystem.FileExists(FileName) Then
    If OverWrite Then
      My.Computer.FileSystem.DeleteFile(FileName)
      My.Computer.FileSystem.WriteAllBytes(FileName, Buffer, False)
      Return True
    Else
      ' Don't save, file exists
      Return False
    End If
  Else
    My.Computer.FileSystem.WriteAllBytes(FileName, Buffer, False)
    Return True
  End If
 
End Function

If SaveFile("C:\my.gif", ByteBuffer, False) Then
  MessageBox.Show("File saved successfully", "Save File", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
  MessageBox.Show("File exists or could not be written", "Save File", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End

Dim PACKET_SIZE As UInt16 = 4096
                Dim Reader As BinaryReader
                Dim ReadBuffer(PACKET_SIZE - 1) As Byte
                Dim NData As Int32
                Dim MStream As MemoryStream
                Dim LData As Int32
 
                Reader = New BinaryReader(clientSocket.GetStream)
                ' Read Length of data (Int32)
                NData = Reader.ReadInt32
                ' Now comes the data, save it in a memory stream
                MStream = New MemoryStream
                While NData > 0
                    LData = clientSocket.GetStream.Read(ReadBuffer, 0, PACKET_SIZE)
                    MStream.Write(ReadBuffer, 0, LData)
                    NData -= LData
                End While
 
                If SaveFile("C:\my.gif", ReadBuffer, False) Then
                    MessageBox.Show("File saved successfully", "Save File", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    MessageBox.Show("File exists or could not be written", "Save File", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End If

If SaveFile("C:\my.gif", MStream.ToArray(), False) Then