Prova così:
Codice:
If InStr(stringa, testodacercare) > 0 Then
MsgBox "valore già presente": Exit Sub
End If
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!"
A. Einstein
|