以下getstring在20次的循环中使用，问题如下：
当输入一次后（可能输入的次数不定），以后的19次都必须输入才能结束程序，本人加了以下红色程式，表示在不输入（输入为空）后按Enter键或space键退出程式，此方法能用。现本人想用Esc键退出，而不是"Enter"或“Space”,本人将红色程式改为if vbEsc then end sub为什么不行，请教各位
Public Sub jj()
For i = 0 To 20
Dim Tutengjk As String
Tutengjk = ThisDrawing.Utility.GetString(False, "Please input the layer you want to add :")
If Tutengjk = "" Then
Exit Sub
End If
next
End sub
置顶卡
