Hi Eric!
Try this :

With (the word object).Selection.PageSetup.TextColumns
.SetCount(2)
.EvenlySpaced = .T.
.LineBetween = .F.
.Width = (the word object).InchesToPoints(3.08)
.Spacing = (the word object).InchesToPoints(0.5)
EndWith

Hope this help! :)