How To Hide Inputbox By Vba (Access) Programming Follow

I cannot hide a message box called from a Bartender model, when a take BarTender control with MS-ACCESS using the following code :

Public Function imprimer(nbcopies, refsurg, Lot, ModeleBt, Imprimante)
Dim MyApp As BarTender.Application
Dim MyDoc As New BarTender.Format
Dim MyVars As BarTender.SubString
Dim Str1, Str2 As String

Set MyApp = CreateObject("BarTender.Application")
[b]MyApp.Visible = False[/b]

Str1 = ModeleBt
Str2 = Imprimante

Set MyDoc = MyApp.Formats.Open(Str1, False, Str2)

MyDoc.SetNamedSubStringValue "NumLot", Lot

MyDoc.Databases.QueryPrompts.GetQueryPrompt("Invite1").value = refsurg


MyDoc.IdenticalCopiesOfLabel = nbcopies

MyDoc.PrintOut

MyApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges)
Set MyDoc = Nothing
Set MyApp = Nothing

End Function


In BarTender, the input box is called by the following script, linked to a field :

If (Field("RBarTenderLisam.NumeroLot")=1) then
Value=0
Do Until Len(Value)=8
Value=InputBox("Entrer numéro de lot (8 chiffres)")
Loop
Else
Value="12345678"
End If


Can somebody help me ?

Tanks

PS : trying the folowing instructions, founded an your forum,
'Disable record selection dialog
MyDoc.PrintSetup.SelectRecordsAtPrint = False

'Disable user prompt
MyDoc.PrintSetup.EnablePrompting = False

give an error message !