Private Sub Command1_Click()
Rem erstmal Excel wenn nötig starten und der Variablen übergeben
On Error Resume Next
Dim MeinExcel As Excel.Application
Set MeinExcel = GetObject(, "Excel.Application")
If MeinExcel Is Nothing Then
    Set MeinExcel = New Excel.Application
    MeinExcel.Visible = True
    MeinExcel.Workbooks.Add
    MeinExcel.Activate
End If
If MeinExcel.Workbooks.Count = 0 Then
    MeinExcel.Workbooks.Add
End If
MeinExcel.WindowState = xlMaximized
MeinExcel.Activate
 
Rem Dann die Zelle auslesen und in Textfeld schreiben
Text1.Text = MeinExcel.Range("A1").Value
 
Rem Verweis auf Excel freigeben
Set MeinExcel = Nothing
End Sub