Konu çözülmüş,alternatif olsun.

   

    Dim i As Byte, say As Byte

    arr = Array("TextBox5", "TextBox6")

    

    For i = LBound(arr) To UBound(arr)

        If Me.Controls(arr(i)) <> "" Then say = say + 1

    Next

    

    If say > 0 Then

        MsgBox "Devam etme iptal edildi", vbCritical, "Bilgi"

        Exit Sub

    End If