Dim Werte() As Double
Dim ExApp As New Microsoft.Office.Interop.Excel.Application()
Dim index As Integer = 0
 
With ExApp
 .Visible = True
 .Workbooks.Add()     'Neue Mappe erstellen
 .Range("A1").Value = "Sensor1:"     'A1 beschriften
 For n As Short = 1 To Werte.Length     'Das Array "Werte" wird durchlaufen
  ExApp.ActiveSheet.Cells(n, 1).value = CStr(Werte(n - 1)) 'A2 bis Ax wird 
  ' beschriftet mit dem Inhalt von "Werte"
  index += 1
 Next
End With
 
Dim R As Microsoft.Office.Interop.Excel.Range = _
 ExApp.ActiveSheet.Range("A2:A" & CStr(index))     'Die beschrifteten Werte 
 ' werden "markiert"
Dim ch As Microsoft.Office.Interop.Excel.ChartObject = _
 ExApp.ActiveSheet.Chartobjects.add(90, 30, 600, 300)     'Ein Chart-Objekt 
 ' wird erstellt
 
With ch.Chart     'Einstellungen fürs Chart-Objekt
 .ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlLineMarkers
 .SetSourceData(R)
 .HasTitle = True
 .ChartTitle.Characters.Text = "Temperaturverlauf"
End With