Was mir gerade noch aufgefallen ist; beim dritten Mal hinschauen.

Wenn du den Anweisungen folgst, wirst du was merken. Du kommst in der markierten Zeile erst entlang, wenn du das Fenster schließt.

Sub DashboardAnzeigen()
 
    Dim Dashboard As Dashboard
    Set Dashboard = New Dashboard
 
    Dashboard.Show
    Dashboard.Top = Application.Top + (Application.Height - Dashboard.Height) / 2
    Dashboard.Left = Application.Left + (Application.Width - Dashboard.Width) / 2
    Dashboard.InitializeDashboard
 
End Sub

Das liegt daran, dass er in der Zeile Dashboard.Show blockiert, solange das Fenster angezeigt wird. Erst wenn du es schließt, geht er ab der Zeile darunter weiter.

Was ist also zu tun? Du musst die Aufrufreihenfolge anpassen:

Sub DashboardAnzeigen()
 
    Dim Dashboard As Dashboard
    Set Dashboard = New Dashboard
 
    Dashboard.Top = Application.Top + (Application.Height - Dashboard.Height) / 2
    Dashboard.Left = Application.Left + (Application.Width - Dashboard.Width) / 2
    Dashboard.InitializeDashboard
    Dashboard.Show

End Sub

Grüße

PS: Beim Schrittweisse debuggen wäre das einem sofort aufgefallen.