Auto close msg box

I think a small Userform is better as Hahobe and Rory already said.
something like that....

'somewhere where you want to see it
UserForm1.show
'

Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
    Me.Top = 250
    Me.Left = 400
  Application.OnTime Now + TimeValue("00:00:02"), "closeUF1"
End Sub

'in a new module
Sub closeUF1()
Unload UserForm1
End Sub