如何提取块中的数字

bjbjbjbj

如图所示，图右边为要提取的文字，为块参照

我要提取 标记为H 的数字，其中有 提示H0的为整数部分。我的代码如下：

For Each ent In ssetObj
If StrComp(ent.ObjectName, "AcDbBlockReference", 1) = 0 Then
RetVal = ent.GetAttributes

    For i = LBound(RetVal) To UBound(RetVal)
        If UCase(RetVal(i).TagString) = TextBox1.text Then
                 a = RetVal(i).textstring
               coorpoint = RetVal(i).insertionpoint
        End If
         If UCase(RetVal(i).PromptString) = TextBox2.text Then
          b = RetVal(i).textstring
                  End If
    Next
coorpoint(2) = b + a / 10
End If

上面的textbox1.text 可以输入为标记名称，TextBox2.text 作为输入 提示 名称

以上代码好像只能提取小数部分，整数部分不能提取出来。

请各位高手解答！！不胜感激

bjbjbjbj

研究半天，自己解决。程序如下，不必输入标记和提示名称了，数据提取成功。就是不知道能否通用。各位有什么更好的方法啊

If i = LBound(RetVal) Then
            a = RetVal(i).textstring
            Else
            If i = 1 Then
            b = RetVal(i).textstring
            End If
            End If
            coorpoint = RetVal(i).insertionpoint
    Next i
 
coorpoint(2) = a + b / 10