Public Function DatosBianarios(Rut As String, Cachos As Integer)
Dim Datos As String, bytes As Double, BytesParte As Double
Dim i, e As Integer, BytesUnidos As Double, datos2 As String
BytesUnidos = 1
    Open Rut For Binary As #1
       Do While Not EOF(1)
     On Error Resume Next
            Input #1, datos2
           Datos = Datos & datos2 & vbCrLf
           DoEvents
         Loop
        Close #1

    Close #1
    bytes = Len(Datos)
    BytesParte = bytes / Cachos
    For i = 0 To Cachos - 1
        Open "c:\File\file" & e For Binary As #1
        Dim secu As String
        secu = Mid(Datos, BytesUnidos, BytesParte)
            Put #1, , secu
        Close #1
        BytesUnidos = BytesUnidos + BytesParte
        e = e + 1
    Next i
    DatosBianrios = "Todo Correcto"
End Function

  
Datos = Space(LOF(1))
     Get #1, , Datos
pero si la varible es muy grande por ejmplo 600 mb no entra en la varible dato 
alguna idea porfa