harmless computer that i said is here X=MsgBox("Message Description",0+16,"Title") so here it is it only work on computer
Dim david
Message=InputBox("virus","virus")
Set david = CreateObject("SAPI.spVoice")
Set david.Voice = david.GetVoices.Item(0)
david.Speak message
new thing of vbs