Automatic resolution of Gosub in Vb6 program code

The task is to automatically generate a Vb6 function for each Gosub and replace the Gosub call with the call and parameters of the newly generated function Example: Sub GosubDemo() Dim Num Dim Num2 ' Solicit a number from the user. Num = InputBox("Enter a positive number to be divided by 2.") ' Only use routine if user enters a positive number. If Num > 0 Then GoSub MyRoutine [login to view URL] Num Exit Sub ' Use Exit to prevent an error. MyRoutine: Num = Num/2 ' Perform the division. Num2 = Num2/2 Return ' Return control to statement. End Sub ' following the GoSub statement. Expected result: Sub GosubDemo() Dim Num Dim Num2 ' Solicit a number from the user. Num = InputBox("Enter a positive number to be divided by 2.") ' Only use routine if user enters a positive number. If Num > 0 Then MyRoutine(Num,Num2) [login to view URL] Num End Sub ' following the GoSub statement. Function MyRoutine(ref Num as Integer, ref Num2 as Integer) Num = Num/2 ' Perform the division. End Function