كيف أمكّن المستخدم من ادخال قيمة أثناء حلقة تكرار loop على تطبيق Vb.net؟

الأمر بسيط، وهو إدراج msgbox مع إمكانية الضغط على زر confirm أي إكمال حلقات loop أو الخروج منها وإنهاء عملية تصفح الخانات في حالة الضغط على No،  ليكون الكود كالتالي:

Sub LoopTest()

    Dim rng As Range, cell As Range
    Set rng = Range("A1:A2")
    For Each cell In rng

        cell.Copy
        Shell "C:\Windows\system32\notepad.exe", vbNormalFocus
        SendKeys "^V"
        DoEvents
        SendKeys "{ENTER}", True

        If MsgBox("Continue?", vbYesNo, "Confirm") = vbNo Then

            Exit For

        End If

    Next cell


End Sub