VS 2010 Do not use GOTO

Hello, I have some code in VBA that I am converting to VB 2010. The code has several GOTO statements, which this forum tells me are now bad practice. Below is a flow chart of part of the code. I think I can work it out except for decision block 7 which includes the statement "GOTO 7" if the IF THEN statement is false. I would prefer to not use other SUBs to get the result but maybe my approach is wrong. Any assistance will be much appreciated.
Thanks, Peter

Attached Images