Просто!

Sub MyProcedure (Param1 As Integer, Param2 As String)
MsgBox(Param2)
End Sub

Sub MyAnotherProcedure()
'Вызываем нашу процедурку
MyProcedure(123,"Привет, мир!")
End Sub

Можно еще как то параметры по умолчанию делать
А так же параметры по ссылке(ByRef) и по значению(ByVal)
Sub MyProcedure (ByRef Param1 As Integer, ByVal Param2 As String)
MsgBox(Param2)
End Sub

Как мне кажется по умолчанию при любых типах данных передается по значению. На счет "при ЛЮБЫХ типах данных" не уверен.