How to write a class in a VBS (vbscript file)

class_in_vbscript.vbs

set clshw = new helloworld

before = clshw.SayHi()

clshw.Smile = “….. NOW I AM IN CLASS :D”

after = clshw.SayHi()

set clshw = nothing

msgbox before & vbcrlf & after

class helloworld
  private pvt_smiley

  public property Let Smile(smiley)
    pvt_smiley = smiley
  end property

  public property get SayHi()
    SayHi = “Hello World !” & pvt_smiley
  end property
end class