solved
Dim objAttRef As AcadAttributeReference
If objblkRef.HasAttributes Then
varAttributes = objblkRef.GetAttributes
For i = LBound(varAttributes) To UBound(varAttributes)
Set objAttRef = varAttributes(i)
objAttRef .textString = intnum
objAttRef .Rotation = 0
Next i
edit CmdrDuh: Added code tags