move/copy line parallely in vba

how to move or copy a line parallely at a distance of 1.28m in VBA ?