VBA 複数テキストボックスが空欄時メッセージ表示 UserForm

Sub ボタン1_Click()
    UserForm1.Show vbModeless
End Sub

Private Sub CommandButton1_Click()
'登録ボタンをクリックしたときの処理

 Dim LastRow As Long
 Dim ctrl As Control
 Dim Chk As Boolean

    Chk = False

    'ユーザーフォームのコントロールをループ
    For Each ctrl In Controls

        'テキストボックスだったら
        If InStr(ctrl.Name, "TextBox") <> 0 Then

            'テキストボックスが空欄だったら
            If ctrl.Value = "" Then

                'フラグ立る
                Chk = True
            End If
        End If
    Next ctrl

    'テキストボックスが全部埋まっている場合
    If Chk = False Then

        With Worksheets("Sheet1")
            '最終行にプラス1
            LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

            'ユーザーフォームの内容をExcelに転記
            .Cells(LastRow, 1).Value = Me.TextBox1.Text
            .Cells(LastRow, 2).Value = Me.TextBox2.Text
            .Cells(LastRow, 3).Value = Me.TextBox3.Text
            .Cells(LastRow, 4).Value = Me.TextBox4.Text

            'Excelに転記後、テキストボックスを空にする
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""
        End With

    'テキストボックスに未入力がある場合
    Else
        MsgBox "未入力のテキストボックスがあります"
    End If

End Sub