[Anas Mahmoud]

يمكنك البدأ بشيء مثل :

كود :

   Sub PlayNumber(number As Integer)

       If (number >= 0 And number <= 19) Or (number Mod 10 = 0 And number <= 100) Then

           PlaySoundFile(number)

       ElseIf number < 100 Then

           Dim ones As Integer = number Mod 10
           Dim tens As Integer = number - ones

           PlayNumber(ones)
           PlaySoundFile("و")
           PlayNumber(tens)
       End If
   End Sub
   Sub PlaySoundFile(number As String)
       Dim filePath As String = String.Format("{0}\Sounds\{1}.wav", Application.StartupPath, number)
       My.Computer.Audio.Play(filePath, AudioPlayMode.WaitToComplete)
   End Sub

الكود السابق يشغل الارقام من 0 الى 100 

واستخدامه بسيط ، بعد وضع زر ومربع نص ، في حدث ضغط الزر :

كود :

       PlayNumber(TextBox1.Text)

الكود غير امن تماما ولكنه يعمل ، اترك لك الفرصة لتطويره