[求助]如何清空文本框里的文字内容

yulo2002

小弟初入门学习VBA，编了一段程序如下

Private Sub circle02_Click()
  
Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0

Set text = ThisDrawing.ModelSpace.AddText("02", insertpoint, 5)
ThisDrawing.Application.ZoomExtents

End Sub

Private Sub line01_Click()

Dim text As AcadText
Dim insertpoint(0 To 2) As Double
insertpoint(0) = 10
insertpoint(1) = 10
insertpoint(2) = 0

Set text = ThisDrawing.ModelSpace.AddText("01", insertpoint, 5)
ThisDrawing.Application.ZoomExtents

End Sub

请教各位高手，应该如何清空上面文本框里的文字内容

dbczhaoy

没看懂什么意思？