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