Solución 6.8 Crear una clase

Private nombre As String  
’--------------------------------------------------------------  
’ constructor  
’ ============  
Private Sub Class_Initialize() 
    MsgBox "Se acaba de crear un país del océano Pacífico." _ 
    & vbCrLf & "Todavía no se ha definido." 
End Sub 
’--------------------------------------------------------------  
’ sintaxis de accesores y modificadores propia de VBA  
’ =============================================   ...