message并不能达到想要的目的：

    If Not udoc Is Nothing Then
        ‘MessageBox "既にデータがあります、先月のデータを削除してください。",MB_OK,"クリア確認"
        If MessageBox("既にデータがあります、先月のデータを削除しますか?", _
    MB_YESNO + MB_ICONQUESTION, "クリアの確認") = IDYES Then
        Do While Not udoc Is Nothing
        Call udoc.RemovePermanently(True)
        Print "sssssssssssssss"
        Set udoc=view.getNextDocument
        loop
    Else
        Exit Sub
    End If      
    End If
   

效果如下：

这个时候要用prompt:

   Dim askme As Integer
    askme = ws.Prompt (PROMPT_YESNO, _
    "送信一括確認", "Mailsを一括で送付しますか？")
    If askme = 1 Then
        GoTo start
    Else
        Exit Sub
    End If