Give this a go. This will get 1024 characters from a file at a time.


Code:
    Dim iLen As Long
    Dim iMod As Long
    Dim iRem As Long
    Dim i As Long
    Dim myString
    
    'open the file
    Open "me.doc" For Binary As #1
    
    'get the length
    iLen = FileLen("me.doc")
    'find out how many time 1024 goes into iLen
    iMod = iLen Mod 1024
    'fins the remainder
    iRem = iLen Mod 1024
    
    'loop for however many times 1024 goes into the filelength
    For i = 1 To iMod
      myString = Input(1024, #1)
      MsgBox myString
      'send data
    Next i
    
    'get the remaining charcters
    myString = Input(iRem, #1)
    'send data
    
    Close #1
hope this helps in some way.

[Edited by Iain17 on 04-14-2000 at 09:55 AM]