Passing Array Issues

[snb]

2 illustrations: passing to a function, passing to a sub

[VBA]Sub tst()
MsgBox sum_snb(Array(3, 5, 7, 9))
sub_snb Array(3, "text", Date, 9)
End Sub[/VBA]

[VBA]Function sum_snb(sn)
sum_snb = Application.Sum(sn)
End Function[/VBA]

[VBA]Sub sub_snb(sn)
For Each it In sn
MsgBox it
Next
End Sub[/VBA]