vb 方法和数据成员找不到

Public Function addcircleby2point(ByVal startpoint As Variant, ByVal endpoint As Variant) As AcadCircle
Debug.Assert (VarType(startpoint) = vbArray + vbDouble)
Debug.Assert (VarType(endpoint) = vbArray + vbDouble)
'计算圆心和半径
Dim centerpoint As Variant, radius As Double
centerpoint = math.getmiddlepointbetween2point(startpoint, endpoint).......问题所在地方
radius = math.getdistancebetween2point(startpoint, endpoint) / 2
Set addcircleby2point = addcircle(centerpoint, radius)
End Function
Public Function getmiddlepointbetween2point(ByVal startpoint As Variant, ByVal endpoint As Variant) As Variant
Dim midpoint(0 To 2) As Double
midpoint(0) = (startpoint(0) + endpoint(0)) / 2
midpoint(1) = (startpoint(1) + endpoint(1)) / 2
midpoint(2) = (startpoint(0) + endpoint(2)) / 2
getmiddlepointbetween2point = midpoint
End Function

vb用.show方法却提示找不到方法或数据成员 VB未找到方法或数据成员 "未找到方法或数据成员"VB提示 急！！！VB提示“未找到方法或数据成员” vb 未找到数据成员或方法 combo Help！！！VB提示“未找到方法或数据成员” VB 10个数,去一个最高分最低分,求平均分,为什么总出现未找到数据成员和方法 求助.在用VB编程时,提示"未找到方法或数据成员" 请VB高手看看这一断 它提示是未找到方法或数据成员 vb问题“未找到方法或数据成员”,怎么办啊?急