Public Sub excel()
        Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
        Dim InstitusNr As String
        Dim Region As String
        Try
            Excel1.Workbooks.Open("Datei.xls")
            InstitusNr = Excel1.Range("C8").Value
            MessageBox.Show(InstitusNr)
 
        Catch ex As Exception
            MessageBox.Show("Fehler!")
        Finally
            Excel1.Application.Quit()
        End Try
    End Sub

excel1.range("c8").value 'funktioniert nicht, da man wohl nicht einfach auf die 
' Spalte gehen kann bei Steuerelementen um den Wert auszulesen.