Oppure
if Text1.Text = "" Then MsgBox"Non è stato inserito nessun testo." Else MsgBox"E' stato inserito un testo." End if