Dim i As Integer
  Dim sDatei As String
  Dim sSatz As String
  Dim sDatum As String
  Dim sZeit As String
  Dim sTemperatur As String
 
  sDatei = "c:\test.txt"
 
  With MSChart1
    .chartType = VtChChartType2dBar
 
    .RowCount = 48
    .ColumnCount = 1
 
    Open sDatei For Input As #1      
 
      For i = 1 To 48
        Line Input #1, sSatz
 
        sDatum = Mid(sSatz, 1, 10)
        sZeit = Mid(sSatz, 12, 8)
        sTemperatur = Trim(Mid(sSatz, 23))
 
        .Row = i
        .Data = CDbl(sTemperatur)
        .RowLabel = sDatum & " - " & sZeit
      Next i
 
    Close #1
 
  End With