Is it correct ?

[kirubagari]

Private Sub stop_Click()
 
UserWantsOut = True
End If

Is it the correct way of stoping the process in the middle?

I put a new module and put this public function inside that.

Public UserWantsOut As Boolean



then I put the aborted by user and finished statement in the after next statement, is it correct?

For i = 49 To 5500 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
 
 
 
If UserWantsOut Then
  MsgBox "Aborted by user!"
Else
  MsgBox "Finished!"
End If
 
 
End If
 
End Sub

[Killer42]

...Is it the correct way of stoping the process in the middle? ...

I'd say you're getting very close. Just a couple of points...

• UserWantsOut is the name of a variable, not a function.
• You haven't put in the code to exit from the FOR loop if UserWantsOut is set to True.
• Maybe just incomplete copy/paste to the message here, but you appear to have an extra End If just before the End Sub.

Just on a side note (nothing to do with getting this to work), you can make use of functions to make your code more compact and easier to read. For example, in this case I would create a function to return a string showing the specified number of bytes from the array, formatted the way you want, starting at the specified position in the array.

For example...

Public Function FormattedBytes(ByVal StartingPoint As Long, ByVal HowMany As Long) As String
  Dim I As Long
  For I = StartingPoint To StartingPoint + HowMany - 1
    If I > StartingPoint Then
      FormattedBytes = FormattedBytes & " " ' Insert spaces between entries.
    End If
    FormattedBytes = FormattedBytes & _
        HexByte2Char(arrByte(I))
  Next
End Function

That way, in your code you can do something like this...

rich1.SelText = "After : " & FormattedBytes(i, 6) & " <--- Corrected" & vbNewLine

instead of...

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

Same functionality, much less code. This is what makes VB (and other programming languages) so great. You can extend it with your own functions and commands.

(Note though, for this to work you would need to make the array arrByte public, just like the UserWantsOut variable. So you might want to leave this in the "possible enhancements to consider later" basket.)