MSGBOX VIA BAT

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
   (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

[c]Sub main()

    Dim ret1
    Dim sParams, sDirectory

    sParams = 0&
    sDirectory = 0&

    Respo = MsgBox("Você desejar começar a trabalhar com a planilha Status de Compras?", vbYesNo + vbCritical + vbDefaultButton1)

    If Respo = vbYes Then
       Call RunShellExecute("Open", "I:\Docenave_Frota\SUPRIMENTOS\Status de Compras.xls", sParams, sDirectory, 1)
    Else
       MsgBox "Não se esqueça que é imprescindível a atualização do Status de Compras! "
    End If

End Sub

Public Sub RunShellExecute(sTopic As String, sFile As Variant, _
                           sParams As Variant, sDirectory As Variant, _
                           nShowCmd As Long)

   Dim hWndDesk As Long
   Dim success As Long

'error messages
   hWndDesk = GetDesktopWindow()

'executa operação passada
   success = ShellExecute(hWndDesk, sTopic, sFile, sParams, sDirectory, nShowCmd)

'ShellExecute API
  If success < 32 Then
     Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & sFile, vbNormalFocus)
  End If

End Sub