Ejemplo de Subrutina en VB6, esta puede ser publica(puede ser accedida en todo el proyecto) o privada (solo se puede acceder en donde se declara).

Public Sub Ejemplo(ByRef Texto As String, ByVal Numero as Int)
Dim contenedor as String
contenedor = Texto & Numero
End Sub

Private Sub Ejemplo(ByRef Texto As String, ByVal Numero as Int)
Dim contenedor as String
contenedor = Texto & Numero
End Sub

Ejemplo de una funcion. Tiene las mismas condiciones cuando es publica o privada
Public Function Ejemplo(ByRef Texto As String, ByVal Numero as Int) as String
Dim contenedor as String
contenedor = Texto & Numero
Ejemplo= contenedor
End Sub