C# / VB.NET - salva foglio excel con nome uguale al valore di due celle

Salve a tutti...
Sono alle prime armi con la programmazione. Ho creato un form con delle textbox, al click del pulsante apro e compilo un modello excel copiando il testo delle textbox nelle celle scelte.
Fin qui tutto bene...ora però vorrei salvare questo modello in un .xls dentro
un'altra cartella col nome_file uguale al valore di due celle.
Le celle in questione dove prelevare il nome-file sono la D19 (numero) e la D11 (stringa)

ecco il codice

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim oExc As Object
Dim oWbk As Object
Dim oWsh1 As Object
Dim oRng1 As Object



TextBox2.Focus()
oExc = CreateObject("Excel.Application"
oExc.Visible = True
If (CheckBox4.Checked = True) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova2.xlt"
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11"
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12"
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13"
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16"
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19"
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23"
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare1
oRng1 = oWsh1.Range("L23"
oRng1.FormulaR1C1 = TextBox7.Text 'totale1
oRng1 = oWsh1.Range("D24"
oRng1.FormulaR1C1 = TextBox8.Text 'testo vostro dare2
oRng1 = oWsh1.Range("L24"
oRng1.FormulaR1C1 = TextBox9.Text 'totale2
ElseIf (CheckBox5.Checked = True) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova3.xlt"
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11"
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12"
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13"
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16"
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19"
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23"
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare1
oRng1 = oWsh1.Range("L23"
oRng1.FormulaR1C1 = TextBox7.Text 'totale1
oRng1 = oWsh1.Range("D24"
oRng1.FormulaR1C1 = TextBox8.Text 'testo vostro dare2
oRng1 = oWsh1.Range("L24"
oRng1.FormulaR1C1 = TextBox9.Text 'totale2
oRng1 = oWsh1.Range("D25"
oRng1.FormulaR1C1 = TextBox10.Text 'testo vostro dare3
oRng1 = oWsh1.Range("L25"
oRng1.FormulaR1C1 = TextBox11.Text 'totale3
ElseIf (CheckBox4.Checked) & (CheckBox5.Checked = False) Then
oWbk = oExc.Workbooks.open("C:\Users\Desktop\modelli fatture\prova.xlt"
oWsh1 = oWbk.Sheets(1)
oRng1 = oWsh1.Range("D11"
oRng1.FormulaR1C1 = TextBox1.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D12"
oRng1.FormulaR1C1 = TextBox2.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D13"
oRng1.FormulaR1C1 = TextBox3.Text 'testo intestazione fattura
oRng1 = oWsh1.Range("D16"
oRng1.FormulaR1C1 = TextBox4.Text 'testo partita iva o codice fiscale
oRng1 = oWsh1.Range("D19"
oRng1.FormulaR1C1 = TextBox5.Text 'testo numero fattura
oRng1 = oWsh1.Range("D23"
oRng1.FormulaR1C1 = TextBox6.Text 'testo vostro dare
oRng1 = oWsh1.Range("L23"
oRng1.FormulaR1C1 = TextBox7.Text 'totale
End If
End Sub

Mi date una mano...

Grazie 1000 volte grazie

Probabilmente non ho capito cosa devi fare ma sicuramente dovresti cercare qualcosa che riguardi la compressione .xls.

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("Foglio3")
        xlWorkSheet.Cells(1, 1) = 5
        xlApp.DisplayAlerts = False
        xlWorkSheet.SaveAs("H:\" & txtNome.Text & "_" & txtFile.Text & ".xls")
        xlWorkSheet.Delete()
        xlWorkBook.Close()
        xlApp.Quit()