Private myExl As New Excel.Application
 
Private Sub OpenmyExcel(Byval sTabName As String)
 
      'Excel-Arbeitsmappe öffnen
      myExl.Workbooks.Open sTabName
 
      'Tabelle1 auswählen
      myExl.ActiveWorkbook.Sheets("Tabelle1").Select
 
      'Inhalt der Zelle A1 in eine Textbox ausgeben
      Text1.Text = Selection.Range("A1").Value      
End Sub