If Dir(strFileName) <> "" Then Kill(strFileName)
        SaveRecord(strFileName)
End if

 Public Sub SaveRecord(ByVal strFile)
        Dim retStr As String
        Dim TempName As String
        Dim cBack As Long
        Dim fs, F
 
        ' Speichern im Root als Temp
        TempName = Left$(strFile, 3) & "Temp.wav"
        retStr = Space$(128)
        mciSendString("stop capture", retStr, 128, cBack)
        mciSendString("save capture " & TempName, retStr, 128, cBack)
        mciSendString("close capture", retStr, 128, cBack)
 
        ' Datei verschieben
        fs = CreateObject("scripting.filesystemobject")
        F = fs.GetFile(TempName)
        F.Move(strFile)
    End Sub