Forms VisualBasic Script

Sub CommandButton1_MouseDown(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Cells(2, "A").Value = Button
    Cells(2, "B").Value = Shift
    Cells(2, "C").Value = X
    Cells(2, "D").Value = Y
End Sub