multiline styles names

i have 3 linestyles in a dgn file so is it possible to find out how many linestyles do i have and what are their names using vba.