Skrip Buat Komputer Bisa ngomong

Dim msg, sapi,i
msg = InputBox ( "SIAPA NAMA SAYA")

If msg = "wahyu" or msg = "WAHYU" then
    msg = "Hi wahyu nugraha putra"
    Else
          msg = "oh no You are really stupid!! DO YOU UNDERSTAND?"
    End If
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg