Padding Text in VBA or Lisp

Am looking for some code to efficiently pad text at certain locations. Post if you have something.

Sub lang()Dim ll As AcadLineDim llang As StringDim llx As DoubleThisDrawing.Utility.GetEntity ll, pntllx = ll.Anglellang = ThisDrawing.Utility.AngleToString(llx, 4, 4)'parse/pad this in the form N.xx°xx'xx" E.'Not always N & E, but always 2 units for each unit of measure'wrote something times past in lisp using the angle func which worked but can't find'that routine seemed rather tedious, but maybe that is the best way to go?MsgBox llangll = NothingEnd Sub