To use the code rather than rewrite

Hi,

I have few modules of coding and use the same codes in different modules. I want to use the code in a module which is available in another module. Please see the examples below.

First Module
--------------

sub Result()

/*some codes here

For i = 5008 To 5030
If i = 5008 Then
ban_name = "Total"
GoTo 183

If i = 5009 Then
ban_name = "Pay: Can't Pay"
GoTo 183
End If

If i = 5010 Then
ban_name = "Pay: Won't Pay"
GoTo 183
End If
End If

......
......

Next i

/*some codes here

End Sub

Second Module
----------------

sub Print()

/*some codes here

For i = 5008 To 5030
If i = 5008 Then
ban_name = "Total"
GoTo 183

If i = 5009 Then
ban_name = "Pay: Can't Pay"
GoTo 183
End If

If i = 5010 Then
ban_name = "Pay: Won't Pay"
GoTo 183
End If
End If

......
......

Next i

/*some codes here

End Sub

Instead of writing same for loop codes in different modules, how can I use this code by function or any other feautures?

Please help.

I'm not sure where Goto 183 leads to. If it is just a way to get out of the loop (rather than Exit For), each of those sections could be replaced with a Select Case construct.

Select Case i
    Case 5008
        ban_name = "Total"
    Case 5009
        ban_name = "Pay: Can't Pay"
    Case 5010
        ban_name = "Pay: Won't Pay"
    ' ...
End Select

@Mike: I think the OP needs to know how to make it a subroutine or function that can be passed a parameter ... and, therefore, be reusable.

Regards, TMS

A function was where I was heading, in this case

Function Ban_NameFunction(Index as Long) as String
Select Case Index
    Case 5008
        ban_nameFunction = "Total"
    Case 5009
        ban_nameFunction = "Pay: Can't Pay"
    Case 5010
        ban_nameFunction = "Pay: Won't Pay"
    ' ...
End Select
End Function

' which would be used in the OP code like

ban_name = Ban_NameFunction(i)
Goto 183