Visual Basic - comparar archivos *.txt (PAGANDO)

Hola, quisiera que alguien me hiciera una rutina pagando en la cual abriendo dos archivos de texto los compare.

1ºarchivo
111111111111111
222222222222222
333333333333333
444444444444444
555555555555555

2º archivo
aaaaaaaaaaaaaaa
bbbbbbbbbbbbb
555555555555555
444444444444444
ccccccccccccccc

resultado

111111111111111
222222222222222
333333333333333

el proposito es que al comparar reste las filas repetidas en los dos (tanto las del fichero 1 como las del fichero 2) y que no sume las filas del fichero 2 que no estan en el fichero 1.

Por favor, alguien me podria hacer esta rutina y darme el ejecutable compilado? y que me diga cuanto quiere cobrar.

gracias ([email protected])

Fijate con esto:

Public Sub Main()
Dim vntFichero1 As Variant, vntFichero2 As Variant, strFichero3 As String, i As Integer, j As Integer, blnRepetido As Boolean

vntFichero1 = Split(FileToString(App.Path & "\Fichero1.txt"), vbCrLf)
vntFichero2 = Split(FileToString(App.Path & "\Fichero2.txt"), vbCrLf)
strFichero3 = vbNullString

For i = LBound(vntFichero1) To UBound(vntFichero1)
blnRepetido = False

For j = LBound(vntFichero2) To UBound(vntFichero2)
If vntFichero1(i) = vntFichero2(j) Then
blnRepetido = True
Exit For
End If
Next j

If Not blnRepetido Then
strFichero3 = strFichero3 & vntFichero1(i) & vbCrLf
End If
Next i

StringToFile strFichero3, App.Path & "\Fichero3.txt"
End Sub

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function

Muchisimas gracias por el codigo.
No estoy muy puesto en visual basic, si me pudieras indicar como aplicar el codigo que me has dado en un form1.
Gracias

Lo puedes aplicar en un módulo como está escrito. Sino colocas el código del Sub Main() en el evento Click de un botón y el resto de las funciones en un módulo. O en el mismo formulario.

Justo lo que queria!!!!
Muchas gracias!!!!
Solo que lo que queria comparar me dice

Error '6' en tiempo de ejecucion:
desbordamiento

Creo que sera debido a que hay mucha informacion.

Sabrias decirme como hacerlo para que no se desborde o cual es el tamaño de archivo para que no se desborde

Otra vez muchisimas gracias.

No conozco los datos que envías como para saber que puede ser. Envíame los archivos por correo y lo miro.

Te he enviado por correo los dos ficheros a comparar.
Paciencia son grandes.

Gracias