Code to check your PC name


 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