Te pongo un ejemplo de como consultar el `StatusInfo` por código:

<!-- language: lang-vb -->

    Dim Scope As New ManagementScope("\\.\ROOT\cimv2")
    Dim Consulta As New ObjectQuery("SELECT * FROM Win32_SerialPort Where DeviceID='COM1'") ' cambialo por el puerto que necesites
    Dim Searcher As New ManagementObjectSearcher(Scope, Consulta)
    Dim queryCollection As ManagementObjectCollection = Searcher.Get
    'Obtenemos el valor del primer resultado
    Dim status As Integer = queryCollection.Cast(Of ManagementObject).First()("StatusInfo")

Debes añadir en tu proyecto una referencia a `System.Management`, asi como `Imports System.Management`