C# と VB.NET の質問掲示板

お世話になります。
一度送信したと思ったのですが、反映されていなかったので、もし二重に投稿していたら大変すみません。
表題の件について質問させて下さい。

開発環境
OS：2000 Pro
VB.Net:2003
Office Access:2003

日中Office Accessでユーザーが作業している後ろで、コンソールファイルを動かします。
コンソールファイルは atコマンドでスケジュール登録しております。

コンソール部分の作業が終わると、終了メッセージボックスを上げたいのですが
以下の方法で挫折し続けています。
改良点や他の方法などのアドバイス、もしくは引導を渡して頂けると、大変ありがたいです。


Module Module1
    Declare Auto Sub MessageBoxW Lib "user32.dll" ( _
     ByVal hWnd As Long, _
     <MarshalAs(UnmanagedType.LPWStr)> ByVal lpText As String, _
     <MarshalAs(UnmanagedType.LPWStr)> ByVal lpCaption As String, _
     ByVal uType As Integer)

    Public Declare Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) As Long

    Sub Main()
        '<API　MessageBoxW>
        MessageBoxW(0, "終わりました", "タイトルです", 0) '----■方法1

        '<API　FindWinow　+　MessageBoxW>
        Dim hWnd As Long
        hWnd = FindWindowA(vbNullString, "Microsoft Access")
        MessageBoxW(hWnd, "終わりました", "タイトルです", 0)  '----■方法2

        '<Dos窓>
        Console.WriteLine("終了しました。閉じてください")'----■方法3

        '<WindowForm>
        Dim frm As frmMsg = New frmMsg
        frm.Show()  '----■方法4
        frm.ShowDialog()  '----■方法5
        frm = Nothing
    End Sub
End Module

■1 API　MessageBoxW
　結果：何も起こりませんでした。

■2 API　FindWinow　+　MessageBoxW
　結果：デバッガが立ち上がり、エラーメッセージが表示されます

「System.NullreferenceExceptionのハンドルされていない例外が　○○.exeで発生しました。
追加情報：オブジェクト参照がオブジェクト　インスタンスに設定されていません。」
となります。hWndには17桁の数字が入っていました。

すみません、APIに無知なのですが、MessageBoxWの　
ByVal hWnd As Long（オーナーウィンドウのハンドルを指定します。0 (NULL) を指定した場合、
メッセージボックスはオーナーウィンドウを持ちません）

は、この場合、
コンソールファイルはウィンドウを持たないので、そのままメッセージを出せないが、開いている画面(Access)
のWindowの番号をFindWindowで指定すると、Accessからメッセージが上がったように見える、という理解は
間違っておりますでしょうか。

■3　DOS窓
　結果：何も起こっていないように見えます。

一瞬書き込まれているのかもしれませんが、ユーザー操作で窓を閉じる事ができる方法がありましたら
どうぞご指導お願い致します。

■4　WindowFormを作成して、Show
　結果：何も起こりません。

■5　WindowFormを作成して、ShowDialog
結果：デバッガが立ち上がり、エラーメッセージが表示されます。

System.InvalidOperationException' のハンドルされていない例外がsystem.windows.forms.dllで発生しました。
追加情報：アプリケーションが UserInteractive モードで実行されていないときに、モーダル ダイアログまたは
フォームを表示することは有効な操作ではありません。サービス アプリケーションからの通知を表示するには、
ServiceNotification または DefaultDesktopOnly スタイルを指定してください。

どうぞよろしくお願い致します。
長文失礼致しました。

使用OS：Windows2000
開発環境･言語：MicrosoftExcel2000 , MicrosoftVisualBasic6.0

こんにちは、お世話になります。

エクセルの勤務表に、日勤時間や週勤時間等を自動記録するシステムを作成しています。
現在は週の初めの営業日と、終わりの営業日の入力を求め、
その週の勤務時間と標準勤務時間を記録する部分を作っております。

そのうちの、標準勤務時間の部分が、
小数部が切り捨てられるのか、本来の値とずれてしまいます。

マクロなしでやると、標準勤務時間は以下の式を入力しています。
=INT(0.319444444444444*営業日数*24/1)+MOD(0.319444444444444*営業日数*24,1)*60/100

それをマクロでは以下のように記録してみました。
------------------------------------------------------
Sub 週勤計算()

Dim Startday As Integer         '週始めの営業日を格納
Dim Endday As Integer           '週終わりの営業日を格納
Dim Fixedstandard As Single     '週の標準勤務時間を計算して格納

'週初めの営業日の入力を求める。
Startday = Application.InputBox("週の始まりの平日を入力してください。", "週勤務時間計算", , , , , , 1)
'週終わりの営業日の入力を求める。
Endday = Application.InputBox("週の終わりの平日を入力してください。", "週勤務時間計算", , , , , , 1)

-中略(週の勤務時間を記録)-

'記録部のセルを結合
Range(Cells(Startday + 3, "M"), Cells(Endday + 3, "M")).MergeCells = True

'週の標準勤務時間を算出してセルに入力
Fixedstandard = (Int(0.319444444444444 * (Endday - Startday + 1) * 24 / 1)) + (0.319444444444444 * (Endday - Startday + 1) * 24 Mod 1) * 60 / 100
Cells(Startday + 3, "M") = Fixedstandard

End Sub
------------------------------------------------------

MOD関数の動作が違うらしいということは理解できたのですが、
小数部を切り捨てない関数、もしくは演算子が分からず、つまづいています。

この質問を書くためにデバック作業をしながら確認をしていたら、
int関数の動きも期待通りでない気がしてきました。

■No18159 (魔界の仮面弁士 さん) に返信
> DRINK さんの環境は、
> >>> 分類:[VB.NET/VB2005]
> なのですから、.NET 対応の書籍を入手する必要があるかと。
ご忠告ありがとうございます。言われないと気付けない所でした。
これ以外にソースコードのサンプルが手に入らなかったら、VB6からの変換を勉強した方がいいでしょうか？
一応他のサンプルらしきものはあるんですが、どうもVB6のもののようなので無駄だとは思いますが載せておきます。
Public Function CnvMltVol(infnm As String, outfnm As String, outsize As Long) As Boolean

  Dim i          As Long
  Dim fnm        As String
  Dim fno        As Long
  Dim fno1       As Long
  Dim filesize   As Long
  Dim writesize  As Long
  Dim l          As Long
  Dim seqno      As Long

'** 異常終了セット
  CnvMltVol = False

'** 分割サイズチェック
  If outsize < 32000 Then
    MsgBox "分割サイズが 32000 未満です。" + Chr(10) + "32000 以上を指定して下さい。", 48, "CnvMltVol()"
    Exit Function
  End If

'** 入力ファイルオープン
  On Local Error Resume Next
  fno = FreeFile
  Open infnm For Input As fno Len = 32000
  If Err <> 0 Then
    MsgBox "入力ファイルのオープンに失敗しました。" + Chr(10) + " for input infnm = " + infnm, 48, "CnvMltVol()"
    Exit Function
  End If
  Close fno
  Err = 0
  fno = FreeFile
  Open infnm For Binary As fno Len = 32000
  If Err <> 0 Then
    MsgBox "入力ファイルのオープンに失敗しました。" + Chr(10) + "for binary infnm = " + infnm, 48, "CnvMltVol()"
    Exit Function
  End If

'** 分割処理
  i = InStrRev(outfnm, ".")
  If i = 0 Then Exit Function
  fnm = Left(outfnm, i - 1)
  seqno = 1
  fno1 = OpenMltFile(fnm, seqno, False)
  If fno1 = False Then
    Close fno
    Exit Function
  End If
  filesize = LOF(fno)
  writesize = 0
  Do Until filesize < 1
    l = filesize
    If l > 32000 Then l = 32000
    ReDim rec(l - 1) As Byte
    Get fno, , rec
    If writesize + l > outsize Then
      Close fno1
      seqno = seqno + 1
      fno1 = OpenMltFile(fnm, seqno, False)
      If fno1 = False Then
        Close fno
        Exit Function
      End If
      writesize = 0
    End If
    Put fno1, , rec
    writesize = writesize + l
    filesize = filesize - l
  Loop

'** ファイルクローズ
  Close fno1
  Close fno
  On Local Error GoTo 0

'** 正常終了セット
  CnvMltVol = True

End Function

何かいいサンプルコードがあったり、良案があったりしたらおしえてください。