Define a sub routine and call it
Option Strict On
 Imports System
 
 Module Module1
    Sub Main( )
       Console.WriteLine("In Main! ")
       SomeMethod( )
       Console.WriteLine("Back in Main( ).")
    End Sub "Main
    Sub SomeMethod( )
       Console.WriteLine("Greetings from SomeMethod!")
    End Sub 
 End Module 
In Main!
Greetings from SomeMethod!
Back in Main( ).
Sub procedure that prints payment information.
Module Tester
   Sub Main()
      PrintSub(40, 10.5)
      PrintSub(38, 21.75)
      PrintSub(20, 13)
      PrintSub(50, 14)
   End Sub
   Sub PrintSub(ByVal hours As Double, ByVal wage As Decimal)
      Console.WriteLine("The payment is {0:C}", hours * wage)
   End Sub
End Module 
The payment is $420.00
The payment is $826.50
The payment is $260.00
The payment is $700.00