Dim x, y, z As Double
x = EndPoint.X - StartPoint.X
y = EndPoint.Y - StartPoint.Y
z = EndPoint.Z - StartPoint.Z
MsgBox((Math.Asin(z / Math.Sqrt((x ^ 2) + (y ^ 2) + (z ^ 2)))) * (180 / Math.PI))
Is the solution. Someone was kind enough to assist me on another site!