InputBox taking a couple of seconds to disappear!

To all,

I am going over a "old" program and I have noticed the following issue.
I have an Inputbox, see below, to ask the user an value. It works just fine however I have noticed than once the value is entered and one presses 'OK' the Inputbox "hang a bit" i.e. remained displayed but the program carries on as intended. This means that all the messages/info written to the LW (as the program progress) are "buffeted" and almost all appears at once when the program has nearly finished. One can see that the program is writing to the LW but there is a delay

Any idea how I can fix this cosmetic issue?

Thanks
Regards
JXB

Do
sNmodeChoice = Inputbox("How many modes ?", "Nmode Choice", " ")

If sNmodeChoice = "" Then
sNmodeChoice103 = "20"
theLW.WriteLine ("")
theLW.WriteLine ("No value specified. Default to 20 modes")
End If

Loop until Integer.TryParse(sNmodeChoice103,iNmodes)

You can use the UF_UI_update_listing_window function to immediately update the information window text. This should be used sparingly because it will incur a small performance penalty.

Thanks for the pointer. And how does one us it? Doc refer to UFUi / UpdateListingWindow()
Is it using Dim theUfSession As UFSession = UFSession.GetUFSession() ?

Thanks
Regards