「office xp / office 2003 / office 2007」で読み上げ機能がインストールされている場合に動作します。

Private Sub CommandButton1_Click()

　On Error Resume Next

　'エクセルの読み上げ機能がインストールされている場合に動作します。
　'コントロールパネル　--> 音声認識　--> 音声合成 タブ　-->「音声の選択」の設定に依存します。


　'speak
　Application.Speech.Speak TextBox1.Text


End Sub