Record System audio

[tim687]

Hallo,
Ik wil een programma uitbreiden, met een systeemgeluid recorder.
Ik heb de code

 mciSendString("open new Type waveaudio Alias recsound", Nothing, 0, 0)
        mciSendString("record recsound", Nothing, 0, 0)

En

 mciSendString("save recsound c:\record.wav", Nothing, 0, 0)
        mciSendString("close recsound", Nothing, 0, 0)

en als laatste

Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
    Public Dir As String = ""
    <DllImport("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function

Ik wil zorgen dat hij hem in (Public Sub) Dir opslaan (textbox1.text) alleen ik krijg waar ik hem ook laat opslaan geen bestand.
Wie kan mij helpen?

Bedankt,
Tim