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.