clear en text input boks når der klikkes i boksen ?

Hvis du har lavet det med et tekstfelt - hvis du derimod har brug InputBox("..."), så er det vist ikke muligt

Sub txtFelt_OnClick()
  If txtFelt.text = "angiv søgning her" Then txtFelt.text = ""
End Sub

okay, jeg har dette:

Private Sub cmd_soeg_nu_Click()
List1.Clear
OpenCon
If Text1.Text = "" Then
Text1.Text = "Angiv en søgetekst"
Else

og så videre...

men kan jeg få flettet en "onclick()" funktion ind i min nuværende "Click()" funktion ?

det var bare mig som ikke kunne huske hvad teksten en txtfelt, klik hed. og egentlig også smartere og lave i en Focus()

Private Sub Text1_Focus()
  If Text1.Text = "Angiv en søgetekst" Then Text1.Text = ""
End Sub

Private Sub cmd_soeg_nu_Click()
  List1.Clear
  OpenCon
...
End Sub

havde også lige fundet samme løsning, men tak for hjælpen :)