在循环的每个循环中中断For循环以输入用户输入

Question

我正在使用For循环在表单上刷新两个条件。它们旁边是一个文本框，用于根据这些条件由用户输入分数。我正在尝试在每次循环完成一个周期时输入用户输入。不要使用InputBox中断。问题是第一次得分后，循环会不断闪烁MsgBox，并且不允许用户更新得分TextBox。这是代码：

Private Sub Cb_Submit_Click()
Debug.Print (No_of_Comparisons)
Debug.Print (Criterias_No)
For i = 1 To Criterias_No
    For j = 3 To Criterias_No
        If j <= Criterias_No And i < j Then
            Lab_Criteria1.Caption = Worksheets("PairWiseMatrix").Range("A" & i + 3).Value
            Lab_Criteria2.Caption = Worksheets("PairWiseMatrix").Range("A" & j + 3).Value
            MsgBox "You have entered a Comparative Score of " & Tb_Score.Value, vbOKOnly
        End If
    Next j
Next i
End Sub