小智 22
function MyFunction() as Boolean
    .....
    .....
    MyFunction = True 'worked
end function
dim a as boolean = MyFunction()
在VBA中,通过赋值给与函数同名的变量来设置函数的返回值:
Function MyFunc() as Boolean
    MyFunc = True
End Function