[vb.net] Calling a Sub and returning a value