Invalid Procedure Call or Arguement VB

Full.Duck

Private Sub drawgraph()
Dim lLowByte As Long ' Holds LowByte value
Dim currentx, currenty, x, y As Integer
drawgrid
currentx = 0
'currenty = 0
'CurrentBit() = 0

For i = 1 To 385

lLowByte = Asc(Mid$(sData, i, 1)) <

---

error here
ConvertBin (lLowByte)
For j = 0 To 7
'If Bit(j) = 1 Then picOutput.ForeColor = &HFF& Else picOutput.ForeColor = &HFF0000
picOutput.Line (currentx, CurrentBit(j) * 22 + j * 32 + 3)-(i, Bit(j) * 22 + j * 32 + 3)
CurrentBit(j) = Bit(j)
Next j
currentx = i
'currenty = lLowByte

DoEvents
Next
MSComm1.PortOpen = True

End Sub


Getting an error saying Invalid Procedure Call or Arguement and i have no idea why, anybody got any ideas? Its VB btw.

shanew

you dont say what the contents of sData are - but this line
will fail if the length is less than 385...

Shane

Evil Phil

sData isn't populated it would seem.

For i = 1 To len(sData)

   lLowByte = Asc(Mid$(sData, i, 1)) 

   ...

should see you right.

Full.Duck

sData is data comming in from the com port using a usb connection. Its defined somewhere else. Thanks for the replies though.

Full.Duck

Figured it out. There was a problem with my circuit inputting data so therefor there was no sData. Problem fixed. Thanks again for the replies.