Function foo(num As Integer) As Integer foo=num End Function
foo=num
Function foo() As Integer Dim num As Integer num=1 foo=num End Function
Dim num As Integer num=1 foo=num
Sub bar(num As Integer) end Sub
sub bar() end Sub