Returnera värde eller boolean

Hej!

Jag har en funktion som jag vill ska returnera False, eller ett värde:

function GetAggregateName(s)
	dim re, m
	
	set re = new regexp

	re.pattern = "([^-]+)"
	set m = re.execute(s)
	if m.count = 0 then
		GetAggregateName=False
	else
		GetAggregateName=m(0).submatches(0)
	end if
end function

Det fungerar ju dock inte att göra som i ovanstående exempel.

Hur gör jag så att funktionen alltid returnerar en boolean, men jag alltid har tillgång till ett annat returvärde?

Mvh
Henrik

function GetAggregateName(s, ByRef returnvalue)
	dim re, m
	
	set re = new regexp

	re.pattern = "([^-]+)"
	set m = re.execute(s)
	if m.count = 0 then
		GetAggregateName=False
	else
		returnvalue=m(0).submatches(0)
		GetAggregateName=True
	end if
end function

foo = GetAggregateName (4711, ret)

Det du vill ha ligger i ret.

Tack @nders!

wasse. :bire