请问如何获取cad中已经存在的文字样式名字并且设置其中的某一个文字样式为当前样式

Function GetTextStyleS() As String()
        '功能:获取样式数组
        Using Trans As  Transaction = DB.TransactionManager.StartTransaction
            Dim StyleT As TextStyleTable = Trans.GetObject(DB.TextStyleTableId, OpenMode.ForRead)
            Dim Styles As New List(Of String), StyleTR As TextStyleTableRecord = Nothing
            For Each ID In StyleT
                StyleTR = Trans.GetObject(ID, OpenMode.ForRead)
                Styles.Add(StyleTR.Name)
            Next
            GetTextStyleS = Styles.ToArray
            Trans.Commit()
        End Using
End Function