dim a
a = "VBS Script"
sub doWork(data, index)
msgbox a
end sub