¿Cómo verifico si el firewall de Windows bloquea un puerto específico, tanto en conexiones entrantes como salientes?

He visto ejemplos de código como este:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim host As String = "localhost"

Dim port As Integer = 6900

Dim addr As IPAddress = CType(Dns.GetHostAddresses(host)(0), IPAddress)

Try

Dim tcpList As New TcpListener(addr, port)

tcpList.Start()

Catch sx As SocketException

' Catch exception here if port is blocked

End Try

End Sub

Pero, ¿cómo puedo saber si la excepción se produce específicamente debido al bloqueo del firewall y no debido a otros errores de socket?