Convert This Code from C+ into VB6

I would like the code attached converting to VB6. I do understand that this is an extract only and probably won't run independently. I would like the conversion to use Procedures and Functions (ie Not classes) if possible. It needs to be accurate! ## Deliverables Just the source code - Must be accurate - Will pay on completion. ## Platform VB6