Buenas, te paso un ejemplo de un procedimiento, una funcion y como pasar un parametro a la aplicacion.
'
Private Sub Command1_Click() ' llama procedimiento mensaje
Mensaje "Hola", "Aviso"
End Sub
Sub Mensaje(Texto As String, Titulo As String) ' no devuelve nada
MsgBox Texto, Title:=Titulo
End Sub
Private Sub Command2_Click() ' llama la funcion suma
MsgBox Suma(1, 1)
End Sub
Function Suma(V1 As Integer, V2 As Integer) As Integer ' devuelve el resultado
Suma = V1 + V2
End Function
Private Sub Form_Load()
If Len(Command) > 0 Then Me.Caption = Command ' si le pasas un parametro a la aplicacion lo capta el command
End Sub
' saludos