create public sub inside a sub vb.net code example

Example: subroutine vb.net

'Function syntax
Private Sub [functionName](ByVal [variableName] As [DataType])
  [Code to run when function is called]
End Sub

'example subroutine
Private Sub add(ByVal a As Integer, ByVal b As Integer)
	Dim result As Integer
	result = a + b
	MsgBox("The sum of the two numbers is " & result)
End Sub

'NOTE: If the keyword “return” is in the code, then it’s a function. 
'If not, it’s a subroutine.