VBA에관해 수정

Sub Example_AddLine()
    
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    
    startPoint(0) = 1: startPoint(1) = 1: startPoint(2) = 0
    endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0
    
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    
End Sub

*이것은 X,Y,Z 값을 선으로 그려주는 VBA인데요.
여기서 선의 끝점을 잡고 다시 선을 그릴때 제가올린 VBA에서 어디부분을 수정해서 넣어야하나요.
처음 접해보는 VBA하서 고수님들의 많은 가르침 바랍니다.