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.

acemilik işte hacım çok teşekkürler zahmet edip uğraştın saol dediğini hemen uygulacağım.evet her departman ayrı bi word dosyası olarak kaydolacak

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