Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1
Dim tamaño As String
Open "C:\archivo.exe" For binary As #1
tamaño = LOF(1) 'LOF = Long Of File, largo del archivo...
Get #1, , tamaño
Close #1
Espero que te sirva, saludos.-