Vbscript Function Return String In Visual Basic