in the procedure
Public Sub StartScan()
you have the following condition
If Mid(eacRange, 6, 1) <> "-" Or Err <> 0 Then
MsgBox "Incorrect value"
Exit Sub
End If
SaveSetting "I485", "Settings", "eacRange", eacRange
End If
If MsgBox("Are you sure you want to start scan process?", vbYesNoCancel) = vbYes Then
In the If condition you are checking for "-" and in the eacrange after 50000- it is hypen so it displays the msg and stops. if you take that condition out it works.
I hope this helps. But i did not go thru the whole code to check what it does.
I will once I go thru whole thing