Ricordando di seguire quanto ha indicato @Alex, intervengo solo per suggerire una modifica a qualcosa che già funziona
Mafra8 ha scritto:
If Len(nz(Titolo,"")) > 0 Then
Titolo.Visible = True
Else
Titolo.Visible = False
End If
Il blocco If ... Then... Else... può essere sostituito da
Titolo.Visible = Len(nz(Titolo, vbNullString)) > 0
forse di non immediata lettura ma di certo molto più snello.