Function decodeVB(code)
	Dim result, i 	
	i = 1
	while i <= len(code)
    	result = result & chr( eval("&h" & replace(Mid(code, i, 6), "%", "")) )
	    i = i + 6
	wend
	decodeVB= result
End Function