alguém sabe fazer um laço de repetiçao para o meu codigo

[Gabrielnv]

tenho esse seguinte codigo que ira inserir um bloco no autocad e ele tambem já vai rotacionalo... até ai tudo bem, mas quando eu coloco o ponto de inserçao e a rotaçao e dou um enter ele para o programa e eu queria que ele me pedisse um novo ponto de inserçao para outro bloco

Private Sub Image1_Click()

Dim bloco As String

Dim blocoref As AcadBlockReference

Dim pontoDeIns As Variant

Dim rotate As Double

UserForm1.Hide

ThisDrawing.ActiveSpace = acModelSpace

Dimscale = ThisDrawing.GetVariable("DIMSCALE")

pontoDeIns = ThisDrawing.Utility.GetPoint(, "ingresse o centro: ")

rotate = ThisDrawing.Utility.GetAngle(pontoDeIns, "selecione a rotacao: ")

bloco = "J:\BKP\Rotinas Warp\condl1lr.dwg"

Set blocoref = ThisDrawing.ModelSpace.InsertBlock(pontoDeIns, bloco, Dimscale, Dimscale, Dimscale, rotate)

End Sub