Как работать с файлом Excel, читать, записывать данные

Dim Пункт_комбобокса As Integer =  ComboBox1.slected.item 'Точно не помню как правильно написать

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        'это событие (процедура) будет выполнятся 
        'каждый раз когда в комбобоксе поменяяется значение
 
        '**********************************************************************
        'Пример номер РАЗ
        Dim Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс As Integer = ComboBox1.SelectedIndex
        'эта переменная будет хранить в себе номер выбранного в 
        'комбобоксе пункта, т.е. выбираем 3 сверху строчку и в этой переменной будет цифра 2
        'не забываем что первый пункт имеет индекс 0 (у всех контролов)
 
        TextBox1.Text = Exc.sheets(1).range("A" & Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс)
        'Присваиваем текстбоксу значение из столбца "А" а строка будет сответствовать выбранному номеру в комбобоксе
 
        '**********************************************************************
 
        'Пример номер ДВА
        Select Case ComboBox1.SelectedItem
            Case "Апельсин"
                MsgBox("Сработал текст")
 
                'Или так
                TextBox1.Text = Exc.sheets(1).range("A1")
 
            Case "Яблоко"
                TextBox1.Text = Exc.sheets(1).range("A2")
                'Или так
                MsgBox("Сработал текст")
        End Select
        'и таких Case Может быть сколько угодно
 
        '**********************************************************************
        'Пример номер ТРИ
        Select Case ComboBox1.SelectedIndex
            Case 0
                TextBox1.Text = Exc.sheets(1).range("A1")
                'Или так
                MsgBox("Сработал номер")
            Case 1
                TextBox1.Text = Exc.sheets(1).range("A2")
                'Или так
               MsgBox("Сработал номер")
        End Select
        'и таких Case Может быть сколько угодно
 
    End Sub
End Class

Dim Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс As Integer = ComboBox1.SelectedIndex
        'эта переменная будет хранить в себе номер выбранного в 
        'комбобоксе пункта, т.е. выбираем 3 сверху строчку и в этой переменной будет цифра 2
        'не забываем что первый пункт имеет индекс 0 (у всех контролов)
 
        TextBox1.Text = Exc.sheets(1).range("A" & Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс)
 
'Указанное число параметров не соответствует ожидаемому числу. Это вылазиет у меня используя это строчку.

Public Class Form2
 
    Dim Exc As Object = CreateObject("Excel.Application")
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'BaseDataSet.Блюда' table. You can move, or remove it, as needed.
        Me.БлюдаTableAdapter.Fill(Me.BaseDataSet.Блюда)
 
        Exc.workbooks.open("C:\Users\Сергей\Desktop\мои разработки\123\WindowsApplication1\WindowsApplication1\Excel файлы\ОП-17 _Контрольный расчет расхода продуктов.xls") 'Открываем книгу эксель по указанному адресу
        Exc.visible = False 'Видимость книги Эксель - False - Невидима и выполняется все в срытном режиме
        Exc.sheets(1).activate() 'Активируем первый лист в книге (Если необходимо)
        TextBox1.Text = Exc.sheets(1).range("AH28").value
 
 
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        'это событие (процедура) будет выполнятся 
        'каждый раз когда в комбобоксе поменяяется значение
        '**********************************************************************
        'Пример номер РАЗ
        Dim Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс As Integer = ComboBox1.SelectedIndex
        'эта переменная будет хранить в себе номер выбранного в 
        'комбобоксе пункта, т.е. выбираем 3 сверху строчку и в этой переменной будет цифра 2
        'не забываем что первый пункт имеет индекс 0 (у всех контролов)
 
        TextBox2.Text = ("2" & Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс)
        'Присваиваем текстбоксу значение из столбца "А" а строка будет сответствовать выбранному номеру в комбобоксе
 
    End Sub
   
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Exc.sheets(1).range("AH28").value = TextBox1.Text
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Кнопка сохранения
        Exc.sheets(1).range("E28").value = ComboBox1.Text
        Exc.sheets(1).range("P28").value = TextBox2.Text
        Exc.sheets(1).range("AH28").value = TextBox1.Text
 
        Dim SFD As New SaveFileDialog With {.Filter = "*.xls|*.xls |*.xlsx|*.xlsx"}
        If SFD.ShowDialog = DialogResult.OK Then
            Exc.ActiveWorkbook.SaveAs(SFD.FileName)
        End If
    End Sub
 
End Class

TextBox2.Text = ("2" & Номер_выбранного_пункта_в_комбобоксе_имеется_ввиду_его_индекс)

Dim Выбор_в_комбобоксе As Integer = ComboBox1.SelectedIndex
 
 Exc.sheets(1).range("E" & Выбор_в_комбобоксе + 28 ).value = ComboBox1.Text
        Exc.sheets(1).range("P" & Выбор_в_комбобоксе + 28 )..value = TextBox2.Text
        Exc.sheets(1).range("AH" & Выбор_в_комбобоксе + 28 ").value = TextBox1.Text