Arduino interface with Visual Basic Express 2010

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.