intentando leer archivos

[Pez_del_Web]

saludos, estoy intentando realizar una aplicación para partir archivos de 8 gigas en otros más pequeños y me topo con errores a la hora de hacerlo, se me desbordan las variables al intentar leer los datos

Código:

Dim archivo As String
Open ruta For Binary As #1
Get #1, , archivo

al hacer el get y guardar en archivo se desborda
¿existe alguna forma de hacerlo para que no se desborde?
he intentado leer solo los 10 megas iniciales e incluso menos, pero sigue desbordándose

[Fann_Lavigne]

Mmm no se, yo siempre he leido archivos con.

Set fso = CreateObject("Scripting.FileSystemObject")
Set v1 = fso.OpenFile(archivo)
leer = v1.readall

msgbox leer

aLGO ASI era, hace mucho ke no uso vb6 para esto