Реализовать поля, обязательные для заполнения

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With TextBox1
            .ForeColor = Color.Silver
            .Text = "Введите текст"
        End With
    End Sub
    Private Sub TextBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        With TextBox1
            If .Text = "Введите текст" Then
                .ForeColor = Color.Black
                .Clear()
            End If
        End With
    End Sub
    Private Sub TextBox1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        With TextBox1
            If Not .Text <> "" Then
                .ForeColor = Color.Silver
                .Text = "Введите текст"
            End If
        End With
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "Введите текст" Then
            MsgBox("Текстовое поле не заполнено!", MsgBoxStyle.Exclamation, "Поле не пахано")
            TextBox1.Focus()
        Else
            MsgBox("Всё ОК!", MsgBoxStyle.Information, "На поле порядок")
        End If
    End Sub