function Load-VbsCode{

	param(
		$Code = $(throw "No VBS code specified.")
	)

	# Convert an array of multiple text lines to a string
	$vbsCode = [string]::Join("`n", $Code)

	$vbs = New-Object -ComObject 'MSScriptControl.ScriptControl'
	$vbs.Language = "VBScript"
	$vbs.AddCode($vbsCode)
	$vbs.CodeObject
}