Select Case nd.Level
Case 0
nd.Text ="尺寸A" & nd.text
Case 1
nd.Text ="尺寸B" & nd.text
Case 2
nd.Text ="尺寸C" & nd.text
End Select