Private Sub Command1_Click()
Open "C:\" & Text1.Text & ".txt" For Output As #1 'İsmi ve yeri belirtilen dosya oluşturulur
Print #1, Text2.Text 'Dosyanın içerisine MS-DOS komutları bu şekilde yazılır
c = MsgBox("Dosya oluşturuldu", vbInformation, "DOSYA OLUŞTURMA")
End Sub

Buyur kardeşim. bunu incele istersen.ama visual basic 6 da yaptım.bu sürümden başka kullanmıyorum çünkü.kusura bakmazsın artık.