[VB6]MSChart aggiornare dati in tempo reale

[seifter]

Ciao a tutti
Dovrei creare un'applicazione per visualizzare sul pc i dati inviati da un termometro,i dati vengono aggiornati 2 volte al secondo e avevo pensato di utilizzare mschart per creare un grafico dinamico ma non riesco.
Vorrei disegnare la classica barra rossa che si alza e si abbassa al variare dei dati.
il codice è il seguente:

Private Sub Form_Load()
   MSComm1.CommPort = 1 
   MSComm1.Settings = "4800,N,7,1" ' 
   MSComm1.RThreshold = 1
   MSComm1.PortOpen = True 
End Sub 
Private Sub MSComm1_OnComm()
   Dim Rx$ 
     Rx$ = MSComm1.Input
      If Len(Rx$) Then 
    Rx$ = CStr(CLng(Rx$))
   Text1.Text = (Rx$ / 100)
   MSChart1.ChartData = Rx$        
  End If  
End Sub

Ma mi restitusce "Argomento della funzione non valido" alla riga

MSChart1.ChartData = Rx$

Ma presumo che anche se cosi non fosse non si aggiornerebbe in tempo reale.
I dati che ricevo sono numeri di 3 cifre.
Ogni consiglio è ben accetto.
Grazie