Use the getSize property of a list item to obtain the number of columns in a list.

Dim ListItem As Object

’Get the row information
Set ListItem = mvarListObject.getItem(Row)
MsgBox "List has " + Str$(ListItem.Size() + " columns")