AUTOCAD VBA PUNKT

[CADLA (Gast)]

Hallo Leute ,
folgendes ich möchte per VB einen Punkt zeichnen .... nunja klappt ganz 
gut. Dennoch möchte ich die Koordinaten per Hand eingebend und ei 
1.Koordinate soll vom Mauszeiger abgeleses werden:

Option Explicit
Private Sub CommandButton1_Click()





Dim varPunkt(0 To 2) As Double
     Dim p1, p2, p3, _
         ang As Double, _
         V As String, _
          B As String, _
           R As String, _
         oDim As AcadDimRotated
B = TextBox1.Text
V = TextBox3.Text
R = TextBox2.Text
     
     UserForm1.Hide
     With ThisDrawing.Utility
          p1 = .GetPoint(, "Specify first curve origin:")
        
          

         varPunkt(0) = 30
 varPunkt(1) = 30
  varPunkt(2) = 0
  ThisDrawing.ModelSpace.AddPoint (varPunkt)
     
  
   End With
End Sub

Warum funktioniert das nicht?