Sorry there was a minor error:

Code:
Private Sub Command1_Click()
Text1.Text = ""
Open "c:\sinus.wav" For Output As #1
Print #1, "RIFF";
Print #1, Chr(4); Chr(0); Chr(1); Chr(0);
Print #1, "WAVE";
Print #1, "fmt ";
Print #1, Chr(16); Chr(0); Chr(0); Chr(0);
Print #1, Chr(1); Chr(0); Chr(1); Chr(0);
Print #1, Chr(17); Chr(43); Chr(0); Chr(0);
Print #1, Chr(17); Chr(43); Chr(0); Chr(0);
Print #1, Chr(1); Chr(0); Chr(8); Chr(0);
Print #1, "data";
Print #1, Chr(4); Chr(0); Chr(1); Chr(0);
For i = 1 To 65568
Print #1, " ";
Next
Close
Text1.Text = "Ready!"
End Sub