Using trans1 As Transaction = db.TransactionManager.StartTransaction
Dim sty As TextStyleTable = trans1.GetObject(db.TextStyleTableId, OpenMode.ForRead, False, True)
Dim styRec As TextStyleTableRecord = trans1.GetObject(sty.Item("standard"), OpenMode.ForRead, False, True)
Dim styRecID As ObjectId = strRec.ObjectId
end using