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