Click event

Why I can't do this??

Private Sub combobox1_Click()
If combobox1.Text = "Some Text" Then
combobox1.Text = Format(Now(), "dd-MMM-yyyy ttttt")
End If
End Sub

Thanks in advanced :)

Hello,

Use Sendkeys

Code:

---

If Combo1.Text = "Some Text" Then
  SendKeys Format(Now, "dd-MMM-yyyy ttttt")
 End If

---

Excellent! Thank you so much :)