Помогите чайнику - VB

Формулировка задачи:

Сделал автосохранение

Workbook_BeforeClose(Cancel  )
     Limpa
 
 Salva()
    ActiveWorkbook.Save
    MsgBox ()
     Tempo

 Tempo()
    vartimer = Format(Now + TimeSerial(, TimeOut, ), )
     vartimer =    
    Application.OnTime TimeValue(vartimer), 

 Limpa()
       
    Application.OnTime earliesttime:=vartimer, _
    procedure:=, schedule:=False

Как сделать чтобы сообщение  само убиралось, не дожидаясь нажатия ОК?

Решение задачи: «Помогите чайнику»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> MessageBoxTimeOut Lib <font color="teal">"user32"</font> Alias <font color="teal">"MessageBoxTimeoutA"</font> (<font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lpText <font color="blue">As</font> <font color="blue">String</font>, <font color="blue">ByVal</font> lpCaption <font color="blue">As</font> <font color="blue">String</font>,
 <font color="blue">ByVal</font> uType <font color="blue">As</font> VbMsgBoxStyle, <font color="blue">ByVal</font> wLanguageId <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dwMilliseconds <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Const</font> MILLISECONDS_TO_STAY <font color="blue">As</font> <font color="blue">Long</font> = <font color="darkblue"><b>2000</b></font>

<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
    MessageBoxTimeOut <font color="darkblue"><b>0</b></font>&, <font color="teal">"Example MessageBox"</font>, <font color="teal">"I'll disappear in "</font> & CStr(MILLISECONDS_TO_STAY / <font color="darkblue"><b>1000</b></font>) & <font color="teal">" seconds ..."</font>, vbInformation + vbOKOnly, <font color="darkblue"><b>0</b></font>&, MILLISECONDS_TO_STAY
<font color="blue">End</font> <font color="blue">Sub</font>
                        