Currently Active Voice, please help

[David]

Hmm, seems I am getting lost here. 

I am trying to retrieve the info, about the currently active voice. What is 
wrong, in my snip-it?
 I only get empty fields.


Dim Synths: Set Synths = Synthesizers
Dim activeSynth : Set activeSynth = Synths.Active
Dim ActiveEng: Set ActiveEng = ActiveSynth.activeEngine

Dim Info
Info = "Description: " &ActiveEng.Description &VbCrLf &_
 "Manufacturer: " &ActiveEng.Manufacturer &VbCrLf &_
 "Product: " &ActiveEng.Product &VbCrLf &_
 "Speaker: " &ActiveEng.Speaker 

MsgBox Info


Thanks alot.