Bueno investigando por el msdn sobre objetos y demas encontre el ojeto "Sapi.spVoice", el cual nos permite ponerle voz a nuestro ordenador...  
Algo asi como el loquendo, pero en ingles...  
Hice este sencillo procedimiento para que veais un ejemplo:

' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX                              //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Sub Computer_Talk(ByVal sText As String, Optional ByVal lVelocity As Long = 0)
    If lVelocity < -10 Or lVelocity > 10 Then Exit Sub
    Dim oTalkComputer As Object
    Set oTalkComputer = CreateObject("Sapi.spVoice")
    If oTalkComputer Is Nothing Then Exit Sub
    With oTalkComputer
        .Rate = lVelocity
        .Speak sText
    End With
    Set oTalkComputer = Nothing
End Sub

Lo divertido es que podemos regular laa velocidad a nuestro gusto...
Asi unos ejemplos de llamadas:

    Call Computer_Talk("hello psyke1") ' Velocidad predeterminada 0

    Call Computer_Talk("hello psyke1", 5) ' Más rapido(valor maximo 10)

    Call Computer_Talk("hello psyke1", -7) ' Más lento (valor minimo -10)

Espero que os haya gustado...

Salu2!

Esto estara guapo para quienes carecen de Vida social REAL!¡.

Dulce Infierno Lunar!¡.

Ahora esta corregido, es porque en la llamada puse Byte en vez de Long, y Byte no acepta numeros negativos...
Me alegro de que te guste...

Salu2!

jajajajjaja esta bien para mi no xd jajajjajajajaja
Mentira .... bueno code sencillo pero bueno

Loqueno o sodelcost