また

> if Check() then
の部分を

       Dim ret As Boolean
       ret = Check()

       If ret Then

とか

       Dim ret As Boolean
       ret = False
       ret = Check()

       If ret Then

にした場合は中止しますの表示になりますが、

       Dim ret As Boolean
       ret = True
       ret = Check()

       If ret Then

にすると削除処理を行う表示になってしまいます。
これは
ret = Check()
の代入自体が行われていないことを表しておりCheck処理の意味がなくなってしまいます。