[VB6]Ricerca e modifica stringa in un file

[xegallo]

tralasciando cosa faccia la routine e che cosa sia B_P

se il file lo apri for binary o for random non serve aprirlo 2 volte

Private Sub EditLabel(FileName As String, B_P As Baia_Posto)
On Error GoTo Hell
Dim iFile As Integer
Dim sFile As String
    
    iFile = FreeFile
    
    Open F.ms_FileFolder & "\" & FileName For Binary As #iFile
        sFile = Space$(LOF(iFile))
        Get #iFile, , sFile
        sFile = Replace(sFile, "??", Format$(B_P.Baia, "00"))
        sFile = Replace(sFile, "!!", Format$(B_P.Posto, "00"))
        Put #iFile, 1, sFile
    Close #iFile
    
Exit Sub
Hell:
    Close
End Sub