Private Sub Sub_FlipFlopChanged(ByVal e As UsbOptoRel.USBOPTORELEventData) _
  Handles USBOptorel16Module.FlipFlopChanged
If Me.InvokeRequired Then
            Dim dd As New FlipFlopChanged_DelegateObject(AddressOf _
              Sub_FlipFlopChanged)
            Me.Invoke(dd, New Object() {e})
        Else
            Try
            ListBox1.Items.Add(e.DIPCardID & ">" & e.InputChannel)
            Catch ex As Exception
            End Try
        End If
End Sub

If .... else

ELSE .... end if