If TxtFesta.Text = "" Then
MsgBox("Questo è quello che viene visualizzato", MsgBoxStyle.Exclamation, "TITOLO ALTO")
End If


non va....
che pizza...