LOL that is just a minor detail


[VBA]
Function DrwArrow(pnts() As Double)
Dim plineObj As AcadLWPolyline
Dim points(0 To 3) As Double
points(0) = pnts(0): points(1) = pnts(1)
'points(2) = pnts(0) + 500: points(3) = pnts(1) '<-this line changed
points(2) = pnts(0): points(3) = pnts(1) + 500
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
plineObj.SetWidth 0, 0, 600
End Function

[/VBA]

In the very last for loop in "DrawFromTxt"

[VBA]
For I = 1 To UBound(LoadPlace)
If Len(LoadPlace(I)) > 0 Then
OutArr = Split(HldPoints(I), ",")
OutPt(0) = Val(OutArr(0)) + 500
OutPt(1) = Val(OutArr(1)) + 200
OutPt(2) = 0
Set textObj = ThisDrawing.ModelSpace.AddText(LoadPlace(I), OutPt, 600)
textObj.Color = acCyan
OutPt(0) = Val(OutArr(0)) ' + 400 '<-this line changed
OutPt(1) = Val(OutArr(1)) + 400 '<-this line changed
DrwArrow OutPt
ThisDrawing.Regen acActiveViewport
End If
Next

[/VBA]



Let me know if that is what you want