[RESOLVED] I need optimization/speed

[RS_Arm]

This is my code, which needs to be optimized

My function geral.ReadFile:

Public Function ReadFile(FileName As String) As String
Dim Container As String, Fich As Integer

Fich = FreeFile

Open FileName For Input As #Fich
Container = Input(LOF(Fich), Fich)
Close #Fich

ReadFile = Container

End Function

In my sub:

    Original = geral.ReadFile(OriginalFile)     
    ContainerTemp = geral.ReadFile(TempFile)              
    
    Original = Right(Original, Len(Original) - 25)  
    ContainerTemp = Right(ContainerTemp, Len(ContainerTemp) - 25)              
    
    
    If InStr(1, Original, ContainerTemp, vbBinaryCompare) >= 1 Then      
        Kill TempFile                                                           
    Else                                                                        
        Kill OriginalFile                                                       
        Name TempFile As OriginalFile                               
        ListNewRegs = ListNewRegs & OriginalFile & vbNewLine                
    
    End If

Thank you in advance for any given tip.