Problem Writing/Reading a File > 2GB - HELP :|

Hi All

Though these are my last points, I have a difficult problem.

I'm using the Visual Basic Put and Get commands via Binary as a file to read data and write Data to a file (See code below).

The problem is that when I reach a file that is > 2GB's it returns an error. I'm writing a form that has to backup security recordings of up to 10GB or more and I need to be able to monitor the progress of the copy. Though below function has all that, I'm battling to use my written function because after 2GB's it returns an error! I can't figure the way around this problem... Please Help

Option Explicit
Public Const GENERIC_READ = &H80000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_TYPE_CHAR = &H2
Public Const FILE_TYPE_DISK = &H1
Public Const FILE_TYPE_PIPE = &H3
Public Const FILE_TYPE_UNKNOWN = &H0
Public Declare Function GetFileType Lib "kernel32" (ByVal hFile As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function GetFileSizeEx Lib "kernel32" (ByVal hFile As Long, lpFileSize As Currency) As Boolean
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub CopyFile(Source As String, Destination As String)
   
    On Error GoTo CopyErr ''If there is an error sort it out at the bottom
    '' Variable Declaration
    Dim SrcSize
    Dim ReadSource As Currency, WriteDestination As Currency
    Dim Chunk As String
    Dim GetBytes As Currency
    Dim CopiedBytes As Currency
   
    Source = TxtSrc
    Destination = TxtDest
   
    SrcSize = SizeOfFile(Source) '' Size of File function provide by Tim by my last query - Thanks Bro! :)
    '' To show copy progress
    ProgressBar1.Min = 0              '' Bar on Form
    ProgressBar1.Max = SrcSize    '' Bar on Form
   
    ReadSource = 1
    WriteDestination = 2

    Open Source For Binary As ReadSource
    Open Destination For Binary As WriteDestination
   
    GetBytes = 131072 '128kb - Reads 128K  at a time and then writes it to file

    CopiedBytes = 0

    ProgressBar1.Value = 0

    LblPercent.Caption = "0"  ''Label on form
    ''Start the copy process
    Do While CopiedBytes < SrcSize
        If GetBytes < (SrcSize - CopiedBytes) Then
            Chunk = Space(GetBytes)
            Get #ReadSource, , Chunk
        Else
            Chunk = Space(SrcSize - CopiedBytes)
            Get #ReadSource, , Chunk
        End If
        CopiedBytes = CopiedBytes + Len(Chunk)
        ProgressBar1.Value = CopiedBytes
        LblPercent.Caption = Int(CopiedBytes / SrcSize * 100)
        LblPercent.Refresh
        Form1.Caption = CopiedBytes / 1000000
        Put #WriteDestination, , Chunk
    Loop
   
    ProgressBar1.Value = 0
   
    GoTo Ex
   
CopyErr:
    MsgBox Err.Description, vbCritical, "Error"
   
Ex:
    Close #ReadSource
    Close #WriteDestination
   
    CmdCopy.Enabled = True
End Sub