Private Sub Button112_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button112.Click
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Open("C:\Test.xls")
        oSheet = oBook.Worksheets(1)
        TextBox1.Text = oSheet.Cells(1, 1).Value ' Oder TextBox1.Text = 
        ' oSheet.Range("A1").Value
 
 
        'Speichert das Workbook
        oBook.SaveAs("C:\Test.xls")
        oExcel.Quit()
    End Sub

Dim A As Range
        Dim B As Range
        Dim D As Range
 
        'Suchbegriff festlegen:
        strSuche = Me.TextBox1.Text
 
        'Suchen in Spalte A (Columns(1)!) der Tabelle1
        A = Tabelle1.Columns(1).Find(what:=strSuche, lookat:=xlWhole)
        B = Tabelle1.Columns(2).Find(what:=strSuche, lookat:=xlWhole)
        D = Tabelle1.Columns(4).Find(what:=strSuche, lookat:=xlWhole)
        If Not A Is Nothing Then
            'Eintragen in Textbox2:
            TextBox7.Text = A.Offset(0, 0).Value   'Zwei nach rechts vom Fund 
            ' aus
            TextBox2.Text = A.Offset(0, 1).Value   'Zwei nach rechts vom Fund 
            ' aus
            TextBox3.Text = A.Offset(0, 2).Value   'eins nach rechts vom Fund 
            ' aus
 
            TextBox4.Text = A.Offset(0, 3).Value   'Zwei nach rechts vom Fund 
            ' aus
            TextBox5.Text = A.Offset(0, 4).Value   'Zwei nach rechts vom Fund 
            ' aus
            TextBox6.Text = A.Offset(0, 5).Value   'Zwei nach rechts vom Fund 
            ' aus
 
            'Suchen in Spalte D (Columns(4)!) der Tabelle1
 
        ElseIf Not D Is Nothing Then
            'Eintragen in Textbox2:
            TextBox4.Text = D.Offset(0, 0).Value   'Zwei nach rechts vom Fund 
            ' aus
            TextBox5.Text = D.Offset(0, 1).Value   'eins nach rechts vom Fund 
            ' aus
            TextBox6.Text = D.Offset(0, 2).Value   'Zwei nach rechts vom Fund 
            ' aus
 
        Else
            MsgBox("Keine Übereinstimmung mit " & strSuche & " gefunden!")
        End If
 
        A = Nothing
        D = Nothing