For i = 49 To mfilesize Step 6
rich1.SelStart = Len(rich1.Text)
rich1.SelText = "Before : " & HexByte2Char(arrByte(i)) & _
" " & HexByte2Char(arrByte(i + 1)) & " " _
& HexByte2Char(arrByte(i + 2)) & " " _
& HexByte2Char(arrByte(i + 3)) & " " _
& HexByte2Char(arrByte(i + 4)) & " " _
& HexByte2Char(arrByte(i + 5)) _
& vbNewLine
If arrByte(i) <> a Then
arrByte(i) = a
changeMade = True
End If
If arrByte(i + 1) <> b Then
arrByte(i + 1) = b
changeMade = True
End If
If changeMade Then
AnyChanged = True
rich1.SelText = "After : " & HexByte2Char(arrByte(i)) & _
" " & HexByte2Char(arrByte(i + 1)) & " " _
& HexByte2Char(arrByte(i + 2)) & " " _
& HexByte2Char(arrByte(i + 3)) & " " _
& HexByte2Char(arrByte(i + 4)) & " " _
& HexByte2Char(arrByte(i + 5)) _
& " <--- Corrected" _
& vbNewLine
End If
Next
i want to popup msg box that will be display a msg that saying the scanning reach the last byte. It mean the scanning is finished.
this is the coding.is it correct?
if i=mfilesize then
msg box "SCANNNG IS FINISHED"
end if
and another question how to stop scanning when we wish to stop when the scanning is going on.what is the code