Using the example from the HELP file for TablePatternFeatureData I added a couple lines:
retval = swTableFeatData.SavePointsToFile("C:\Stuff.SLDTAB")
Debug.Print "retval = " & retval
swTableFeatData.PointArray = Array(0.37445, 0.0254, 0.37445, 0.15006, 0.37445, 0.27472, 0.37445...