Borders of text boxes and cells

[JamesPW]

I'm trying to create text boxes with the same border width as the worksheet cells (set in VBA).

My VBA code sets Selection.Borders(xlEdgeTop).Weight = xlThin
Units for text box border width in format shape/line/weights & arrows = ??pts

I'd like to set the borders of my textbox to the points equivalent of VBA xlThin.

I've tried a bunch, down to 0.01pts (which appears to be the minimum) but it still looks thicker than xlThin.