Abfrage zur Textbox nur einmal!?

Private Sub UserForm_Initialize()
Frame2.Visible = False
End Sub

Private Sub CommandButton1_Click()
Dim obj As Control, i%
For i = 1 To 8
Set obj = Me.Controls("TextBox" & i)
If obj  "" Then
If MsgBox("Wollen Sie wirklich", vbYesNo) = vbYes Then
TextBox2 = TextBox1
TextBox4 = TextBox3
TextBox6 = TextBox5
TextBox8 = TextBox7
Frame2.Visible = True
Else
Frame2.Visible = True
End If
End If
Next i
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer, blnAktiv As Boolean
For i = 1 To 4
blnAktiv = blnAktiv Or Me.Controls("Checkbox" & i).Value
If blnAktiv Then Exit For
Next
If blnAktiv Then Unload Me _
Else MsgBox "Keine Checkbox aktiviert !", , "Nööö"
End Sub