Change Attributes in individual drawing block by picking it.

Is there a VB.net routine to change attributes in an individual drawing block

that is selected. I have looked at routines the change the block reference attributes

but that changes all drawing blocks in a drawing.

Thank you,

This is a VBA example of picking a block with 1 attribute Attribs(0) may be useful

Function Getpitname(Newpitname As String) As String
Dim PitNameSelect As AcadObject
Dim pitattribs As Variant

ThisDrawing.Utility.GetEntity PitNameSelect, basepnt, "pick pit name : "
If PitNameSelect.ObjectName = "AcDbText" Then
 Getpitname = PitNameSelect.TextString
End If
If PitNameSelect.ObjectName = "AcDbBlockReference" Then
 pitblname = PitNameSelect.Name   ' RETURNS BLOCK NAME
 pitattribs = PitNameSelect.GetAttributes
 Getpitname = pitattribs(0).TextString
End If

End Function