I did it this way:
Read Arduino in VB:
Public iSerialReceived(50) As Integer
Function SerialReceive() As Integer
Dim iIndex As Integer
On Error GoTo ErrHandler
If SerialPort1.BytesToRead > 0 Then
iIndex = 0 'Initialize
While SerialPort1.BytesToRead > 0
iSerialReceived(iIndex)= SerialPort1.ReadByte() ' Read next byte
iIndex = iIndex + 1
End While
...PROCESS DATA HERE OR SOMEWHERE ELSE...
ErrHandler:
'…PROCESS ERROR…
End Function
In Arduino:
You already send "LED ON"/"LED OFF" via Serial as far as i can see.