' dichiari una variabile Globale
Dim var1 As Boolean

' quando clicchi sulla text cambia valore alla variabile
Private Sub Text1_DblClick()
If (var1 = False) Then
var1 = True
Text1 = ""
Else
var1 = False
End If
End Sub

' se la variabile = true non permette di scrivere
Private Sub Text1_Change()
If var1 = True Then
Text1 = ""
End If
End Sub

L'ho testato, dovrebbe funzionare...