Wat staat hier nu verkeerd VBA code

[dinoshop]

Dim cellindex As Integer

Private Sub CommandButton1_Click()
UltimaSerial1.CommPort = USB
UltimaSerial1.Device = D1158
UltimaSerial1.SampleRate = 100
UltimaSerial1.EventLevel = 1
UltimaSerial1.Start
IeTimer1.Interval = 1000
UltimaSerial1.ChannelCount = 1
For cellindex = 1 To 20
ActiveSheet.Cells(cellindex, 1) = ""
ActiveSheet.Cells(cellindex, 2) = ""
Next
cellindex = 1
End Sub

Private Sub CommandButton2_Click()
leTimer1.Enabled = ValFalse
UltimaSerial1.Stop
End Sub

Private Sub IeTimer1_Timer()
i = UltimaSerial1.AvailableData
ActiveSheet.Cell(cellindex, 1) = Format$(UltimaSerial1.AnalogInput(Ch1), "0.00"):eek:
ActiveSheet.Cell(cellindex, 2) = Time$
cellindex = cellindex + 1
If cellindex > 20 Then cellindex = 1
End Sub

Private Sub UltimaSerial1_DriverError(ByVal ErrorCode As Integer)
i = ErrorCode
End Sub

deel waar smily staat meld dat het fout is

 

[Haije]

deel waar smily staat meld dat het fout is

welke smily?

 

[dinoshop]

waar eek achterstaat smily werkt dus fff niet

 

[Mark xl]

Dat is niet te achterhalen, omdat je te weinig informatie geeft

De retourwaarde van de methode UltimaSerial1.AnalogInput() kan fout zijn
de waarde van Ch1 kan fout zijn, of niet compatibel met de methode UltimaSerial1.AnalogInput()
etcetera, etcetera