make listbox update between functions

I am trying to create a listbox whereby the user can see progress by function executions.

The listbox contents get updated, but the user display does not update.

ListBox1AddItem(“Setting file names…”)              THE ITEMS GET ADDED, BUT THE USER DOESN’T SEE THEM UNTIL ALL FUNCTIONS ARE COMPLETE
XMLTools.setFileNamesByLanguageID
ListBox1AddItem(“Copying files…”)
CopySourceFileToCleaned
ListBox1AddItem(“Setting defaults…”)
XMLTools.SetDocxDefaults

…

Private Sub ListBox1AddItem(ByVal Item As String)
ListBox1.Items.Add(Item)
ListBox1.TopIndex = ListBox1.Items.Count – 1
ListBox1.Refresh()
End Sub