word process wird nicht geschlossen

Private Sub Drucken()
        Dim oWord As New word.Application
        Dim mydrucken As New drucken
        Dim doc As word.Document = mydrucken.inword(oWord, docname, mydrucken.ausdruckerstellen(lv_artikel))
        doc.PrintOut()
        doc.Saved = True
        doc.Close()
        oWord.Quit()
    End Sub

Private Sub speichern()
        Dim oWord As New word.Application
        Dim mydrucken As New drucken
        SaveFile.AddExtension = True
        SaveFile.FileName = docname
        SaveFile.Filter = "Word-Dokument|*.doc"
        If SaveFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim doc As word.Document = mydrucken.inword(oWord, docname, mydrucken.ausdruckerstellen(lv_artikel))
            'doc.PrintOut()
            doc.SaveAs(SaveFile.FileName)
            doc.Close()
        End If
        oWord.Quit()
    End Sub

Public Function inword(ByRef oword As word.Application, ByVal pDokumentname As String, ByVal pText As String) As word.Document

        Dim oDoc As word.Document
        'Dim oTable As Word.Table
        Dim oPara1 As word.Paragraph
        'Dim oRng As Word.Range

        'Dim Pos As Double

        'Start Word and open the document template.
        oword = CreateObject("Word.Application")
        oword.Visible = False

        oDoc = oword.Documents.Add
        oDoc.PageSetup.TopMargin = 30
        oDoc.PageSetup.RightMargin = 10
        oDoc.PageSetup.LeftMargin = 10
        oDoc.PageSetup.BottomMargin = 10

        oPara1 = oDoc.Content.Paragraphs.Add()
        oPara1.Range.Text = "PV-Anlagenplanung"
        oPara1.Range.Font.Name = "Courier New"
        oPara1.Range.Font.Size = 16
        oPara1.Range.Font.Bold = True
        oPara1.Range.Font.Underline = word.WdUnderline.wdUnderlineSingle
        oPara1.Alignment = word.WdParagraphAlignment.wdAlignParagraphCenter
        oPara1.Format.SpaceAfter = 12
        oPara1.Range.InsertParagraphAfter()

        oPara1.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft
        oPara1.Range.Font.Underline = word.WdUnderline.wdUnderlineNone


        oPara1 = oDoc.Content.Paragraphs.Add()
        oPara1.Range.Text = pDokumentname
        oPara1.Range.Font.Name = "Courier New"
        oPara1.Range.Font.Size = 12
        oPara1.Range.Font.Bold = False
        'oPara1.Range.Font.Underline = Word.WdUnderline.wdUnderlineSingle
        oPara1.Alignment = word.WdParagraphAlignment.wdAlignParagraphCenter
        oPara1.Format.SpaceAfter = 12
        oPara1.Range.InsertParagraphAfter()

        oPara1.Alignment = word.WdParagraphAlignment.wdAlignParagraphLeft
        oPara1.Range.Font.Underline = word.WdUnderline.wdUnderlineNone

        oPara1 = oDoc.Content.Paragraphs.Add()
        oPara1.Range.Text = ""
        oPara1.Range.Font.Name = "Courier New"
        oPara1.Range.Font.Size = 10
        oPara1.Range.Font.Bold = False
        oPara1.Format.SpaceAfter = 0
        'oPara1.Range.Font.Underline = Word.WdUnderline.wdUnderlineSingle
        'oPara1.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        oPara1.Range.InsertParagraphAfter()



        oPara1 = oDoc.Content.Paragraphs.Add()
        oPara1.Range.Text = pText
        oPara1.Range.Font.Name = "Courier New"
        oPara1.Range.Font.Size = 10
        oPara1.Range.Font.Bold = False
        oPara1.Format.SpaceAfter = 0
        'oPara1.Range.Font.Underline = Word.WdUnderline.wdUnderlineSingle
        'oPara1.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        oPara1.Range.InsertParagraphAfter()

        'oPara1.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
        'oPara1.Range.Font.Underline = Word.WdUnderline.wdUnderlineNone

        Return oDoc

    End Function