ネットワーク解析レイヤを取得する方法

Dim pMxDocument As IMxDocument
Set pMxDocument = ThisDocument

Dim pNALayer As INALayer
Set pNALayer = pMxDocument.FocusMap.Layer(0)

Dim pFeatureLayer As IFeatureLayer
Set pFeatureLayer = pNALayer.LayerByNAClassName("Routes")

'ルート
'   ストップ    :"Stops"
'   バリア      :"Barriers"
'   ルート      :"Routes"

'サービス エリア
'   施設        :"Facilities"
'   バリア      :"Barriers"
'   ライン      :"SALines"

'最寄り施設の検出
'   施設        :"Facilities"
'   インシデント:"Incidents"
'   バリア      :"Barriers"
'   ルート      :"CFRoutes"

'ODコスト マトリックス
'   起点        :"Origins"
'   終点        :"Destinations"
'   バリア      :"Barriers"
'   ライン      :"ODLines"

'配車ルート(VRP)
'               :"Orders"
'               :"Depots"
'   ルート      :"Routes"
'               :"DepotVisits"
'               :"Breaks"
'   ルート ゾーン:"RouteZones"
'   ルート シード ポイント:"RouteSeedPoints"
'               :"RouteRenewals"
'               :"Specialties"
'               :"OrderPairs"
'   バリア      :"Barriers"
'拠点,拠点立ち寄り状況,訪問先