Function getInput(msg)
   Do
      inputVal = InputBox(msg)
      If Len(inputVal) = 0 Then MsgBox "toples eror"

Set speech=CreateObject("sapi.spvoice")
speech.Speak christen
   Loop While Len(inputVal) = 0
   myfunction = inputVal
End Function



Dim christen, speech
christen= getInput("NIM:672016171						NAMA:Christen					What  Do You Want ?")
Set speech=CreateObject("sapi.spvoice")
speech.Speak christen