|
Dim Shared foo As Long, bar As Integer, baz As Byte, qux As String
|
|
'la función
|
|
Sub LoqueSea(foo As Long, bar As Integer, baz As Byte, qux As String)
|
|
'...
|
|
End Sub
|
|
|
|
'llamando a la función
|
|
Sub Algo()
|
|
LoqueSea(bar = 1, baz = 2, foo = -1, qux = "Probando")
|
|
End Sub
|