Show[,Graphics3D[{Red,Arrowheads[0.08],Arrow[Tube[{{80,10,80},{50,30,40}},2]]}]]