vb den word e yazdırma

arkadasım şunu belirteyim konuyu yanlış yere açmışsın. vb.net bölümüne açman gerekiyordu. ben vb 6 kullanıyorum. vb.net yüklü degil bende şu an. zaten vb.net konusunda fazla bilgim yok.
Dsy.WriteLine("Deneme yazısı")-->> buradaki deneme yazısı yerine text kutusunun adını yazacaksın. ben sadece örnek olsun diye verdim o kodları sana.
her departman farklı word dosyalarına mı kaydedilecek.

Comboboxtan seçilen departmanı if komutuyla kontrol ettirerek yapabilirsin.

If ComboBox1.Text = "Makina Bakım Raporu" Then
Try

Dim fs As System.IO.FileStream = New System.IO.FileStream("c:\raporlar\makinabakimraporu.doc", IO.FileMode.Append, IO.FileAccess.Write)
Dim yazdırma As System.IO.StreamWriter = New System.IO.StreamWriter(fs)
MonthCalendar1.MaxSelectionCount = 1
yazdırma.Write(Chr(13) + (MonthCalendar1.SelectionRange.Start + " " + RichTextBox1.Text)) 'chr(13) komutu bir alt satıra geciriyor.
yazdırma.Close()
fs.Close()
Catch
End Try
End If