Retrieve Attributes Not In A Block

Hello All! I have yet another question. I was wondering how to retrieve attributes that are not placed in a block. I am using the following code to retrieve the attributes out of a block:



For Each Entity In ThisDrawing.ModelSpace
If TypeOf Entity Is AcadBlockReference Then
Set BlockRef = Entity

If BlockRef.HasAttributes Then
For Each Block In ThisDrawing.Blocks
If Block.Name = BlockRef.Name Then
For Index = 0 To (Block.Count - 1)
If Block(Index).ObjectName = "AcDbAttributeDefinition" Then
Set oAttribute = Block(Index)
array1 = Entity.GetAttributes
If (Left(oAttribute.PromptString, 3)= "DWN") Then
DrawnBy = array1(Index).TextString End If
End If
Next Index
End If
Next Block
End If
End If
Next


However, I have some drawings in which the drafter had created an attribute that is not within a block. How could I modify my code above to also see if there is any attributes outside of any block. Anyone have any ideas?

Thanks In Advance.

 

For Each entity In ThisDrawing.ModelSpace
If TypeOf entity Is AcadBlockReference Then
<snip> <snip> <snip>
ElseIf TypeOf entity Is AcadAttribute Then
MsgBox "standalone att: " & entity.TextString
End If
Next

 

Thanks a lot. That was what I needed.