vb编程在同一天如有重复复制则弹出对话框提示,该怎么解决

vb编程在同一天如有重复复制则弹出对话框提示
vb编程 按Command1复制Text1的输入内容时，在同一天如有重复复制则弹出对话框提示，“是否重复提交？”按“是”确认，按“否”取消。代码如何写？最好能具体点。 下面写的为什么不对，应该怎么写？ 
 Private Sub Command1_Click()
  If GetSetting(App.Title, "Settings", "d_t", "") = Date Then
  '从注册表获取上次复制日期，如果和本次日期相同
  If MsgBox("是否重复提交？", vbYesNo + vbQuestion, "提示") = vbYes Then
  Clipboard.Clear
  Clipboard.SetText Text1.SelText '复制
  End If
  Else
  Clipboard.Clear
  Clipboard.SetText Text1.SelText
  End If
  SaveSetting App.Title, "Settings", "d_t", Date '将本次复制日期存入注册表
  End Sub
Private Sub mnuPaste_Click()
  Text1.SelText = Clipboard.GetText() '复制
End Sub


------解决方案--------------------
编写程序之前，首先搞明白要做什么。

你的逻辑没有理顺。