Private Sub Command1_Click()
Dim oXLS As New Excel.Application
Dim sPfad As String
 
On Error GoTo Err1
 
  sPfad = "c:\Test.xls"
  oXLS.Workbooks.Open sPfad, , , , , , True, , , True
 
  Text1.Text = oXLS.cells(1, 1)  'Zeile , Spalte
  oXLS.quit
  Set oXLS = Nothing
 
 
Exit1:
  Exit Sub
Err1:
  MsgBox "Fehler: " & Err.Number & vbCrLf & "Beschreibung: " & Err.Description
  Resume Exit1
End Sub