Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim textBoxes As New List(Of TextBox)() From {TextBox2, TextBox3, TextBox4}

    For Each txt In textBoxes

        AddHandler txt.TextChanged, Sub() TextBox1.Text = If(textBoxes.Any( _

            Function(t) t.TextLength = 0), "未記入有り", "全て記入済み")

    Next

End Sub