Private Sub UserForm_Initialize()

'
On Error Resume Next


Dim Voice1
Dim Voice1Count
Dim Voice1Name
Dim i

'セットする
Set Voice1 = CreateObject("SAPI.SpVoice")

'音声認識の人物の総数をカウントする
Voice1Count = Voice1.GetVoices.Count


For i = 0 To Voice1Count - 1
　Set Voice1.voice = Voice1.GetVoices().Item(i)
　Voice1Name = Voice1.voice.getdescription() '人物名を取得
　ListBox1.AddItem Voice1Name '人物名をリストボックスに追加

Next



End Sub