Private Sub cmd_Play_Click()
  Dim dsBDesc As DSBUFFERDESC
  Dim wfx As WAVEFORMATEX
  Dim GesamtByteBlock() As Byte
  Dim myDSBCAPS As DSBCAPS
  Dim lngGesamtBytes As Long
  Dim lngLastAdress As Long
  Dim i As Integer

  'Den eingegebenen Ziffern entsprechend werden die Sounds
  'eingelesen und in einen neuen SoundBuffer geschrieben.
  'Natürlich könnte man auch direkt die entsprechenden
  'Sounds abspielen, dies hätte aber Folge, dass alle
  'Sounds zur gleichen Zeit abgespielt werden -> die
  'Sounds sollen aber nach einander abgespielt werden.

  If Len(Trim(txt_Zahl.Text)) > 0 Then
    If Not IsNumeric(txt_Zahl.Text) Then Exit Sub
    'Feststellen der Länge alles Sounds in Byte
    For i = 1 To Len(txt_Zahl.Text)
      dsSounds(CInt(Mid(txt_Zahl.Text, i, 1))).GetCaps myDSBCAPS
      lngGesamtBytes = lngGesamtBytes + myDSBCAPS.lBufferBytes
    Next

    'Festlegen der Grösse des SoundBuffer's
    dsBDesc.lBufferBytes = lngGesamtBytes

    'Da alle Sounds gleich sind, bis auf die Grösse, können die
    'Flags von irgend einem der 10 Sounds genommen werden
    dsBDesc.lFlags = myDSBCAPS.lFlags

    'Auslesen des WaveFormatX von einem der Sounds
    'und in den neuen SoundBuffer setzen
    dsSounds(0).GetFormat wfx
    dsBDesc.fxFormat = wfx

    'Erstellen des neuen SoundBuffer's
    Set dsAll = Nothing
    Set dsAll = DS8.CreateSoundBuffer(dsBDesc)

    'In dieser Schleife werden die Daten aller Sounds ausgelesen
    'und nach einander in das Array of Bytes geschrieben
    ReDim GesamtByteBlock(lngGesamtBytes)
    For i = 1 To Len(txt_Zahl.Text)
      dsSounds(CInt(Mid(txt_Zahl.Text, i, 1))).GetCaps myDSBCAPS

      'Auslesen der Bytes
      dsSounds(CInt(Mid(txt_Zahl.Text, i, 1))).ReadBuffer 0, _
        myDSBCAPS.lBufferBytes, GesamtByteBlock(lngLastAdress), _
              DSBLOCK_DEFAULT
      lngLastAdress = lngLastAdress + myDSBCAPS.lBufferBytes
    Next

    'Schreiben des gesamten Array of Bytes in den SoundBuffer
    dsAll.WriteBuffer 0, lngGesamtBytes, GesamtByteBlock(0), _
              DSBLOCK_DEFAULT

    'Abspeichern der Ziffernfolge als WAV-Datei
    If chk_Save.Value = 1 Then
      dsAll.SaveToFile App.Path & "\DTMFTon.wav"
    End If
    dsAll.Play DSBPLAY_DEFAULT
  End If
End Sub