GetDirectionが上手く行かない

平面の向きを取得したいだけなのですが、SPAWorkbenchのGetDirectionが
ｴﾗｰになり上手く行かないです。　確かに使った事無いんですが･･･。

'vba これは一部なのでこれだけじゃ動かないです

'平面情報
'return 0-Distance 1-p1_Direction 2-p2_Direction
Private Function GetPlaneInfo(ByVal pt As PART, ByVal p1, ByVal p2) As Variant
    Dim meas 'As Measurable
    Set meas = GetMeasurable(pt, p1)
    
    Dim info(2) As Variant
    info(0) = meas.GetMinimumDistance(p2)
    
    Dim vec(2) 'As Variant
    meas.GetDirection vec 'ここでｴﾗｰ
    info(1) = vec
    
    Set meas = GetMeasurable(pt, p2)
    meas.GetDirection vec
    info(2) = vec
    
    GetPlaneInfo = info
End Function

Private Function GetMeasurable(ByVal pt As PART, ByVal p1) 'As Measurable
    Dim wb, meas As Measurable
    Set wb = pt.Parent.GetWorkbench("SPAWorkbench")
    Set GetMeasurable = wb.GetMeasurable(p1)
End Function