Comparación de archivos (Ayuda)

[stroyer]

Buenas a tod@s, había diseñado un algoritmo que busca las diferencias entre 2 archivos de igual tamaño (con anterioridad ya me he cerciorado que los archivos sean de igual tamaño)

El problema que tengo es el siguiente, a la hora de comparar se hace muy lento el proceso porque estoy analizando posiciones de memoria una a una. El caso es que no se me ocurre otra forma de que no tarde tanto, he pensado en hacerlo por bloques de 255 pero el caso es que el tamaño no siempre se puede dividir por 255. no se si me explico bien.

A ver si me podeis hechar una mano el código es el que tengo publicado en la web del guille pero lo pondre aqui tambien.

Private Sub Command1_Click()
Text2.Text = ""
Command1.Enabled = False

Dim nFic As Integer
Dim sFic As String
Dim posmemoria As Long

sFic = Text3.Text

Dim I As Long

For I = 0 To FileLen(sFic)
b = I + 1
DoEvents

'archivo original
sFic = Text3.Text
nFic = FreeFile
Label6.Caption = FileLen(sFic)
Open sFic For Binary As nFic
A$ = Space$(1)
Get nFic, Label1.Caption, A$
Afile = Asc(A$)
Close nFic

'archivo modificado
sFic = Text4.Text
nFic = FreeFile
Open sFic For Binary As nFic
A$ = Space$(1)
Get nFic, Label1.Caption, A$
Bfile = Asc(A$)
Close nFic

posmemoria = Label1.Caption - 1

' mostrar las posiciones de memoria donde hay diferencias
' y los datos contenidos entre parentesis y separados por comas
If Not Afile = Bfile Then _
Text2.Text = Text2.Text & posmemoria & "(" & Afile & ", " & Bfile & ")" & vbCrLf

Label1.Caption = Label1.Caption + 1

Next I
Command1.Enabled = True
Label1.Caption = "1"
End Sub

espero que me puedan ayudar gracias y un saludo :)