Set VObj = CreateObject("SAPI.SpVoice")    with VObj    Set .voice = .getvoices.item(0)    .Volume = 100    .Rate = 1    end with    Set VObj = CreateObject("SAPI.SpVoice")    For Each Voice In VObj.getvoices    I = I + 1    msgbox "I am " & Voice.GetDescription & " and ;)"    Next    For count=0 to 3    vobj.Speak"Cygig Lol, at least try to do it in a less obvious way"    Next     
ERP Project Management,Asp.net,PL SQL Tips for error resolution,Research,Software Errors and solution,SQL 2014,2012,2008,Procedural language,SP,Power BI,excel macro ,Musical notations,Business software,Degree, diploma related informations.