' Код стандартного модуля Module1
Dim x As Class1

' Выполнить сначала это
Sub Test1()
  Set x = New Class1
End Sub

' А затем - это
Sub Test2()
  Set x = Nothing
End Sub

' Код модуля класса Class1

' Конструктор класса по умолчанию
Private Sub Class_Initialize()
  MsgBox "Class_Initialize"
End Sub

' Деструктор класса по умолчанию
Private Sub Class_Terminate()
  MsgBox "Class_Terminate"
End Sub

Option Explicit

Property Get Id() As Long
End Property

Property Get Name() As String
End Property

Sub ShowData()
End Sub

Sub InitializeData(Id As Long, Name As String)
End Sub

Implements Student

Private m_Id As Long
Private m_Name As String

Property Get Student_Id() As Long
    Student_Id = m_Id
End Property

Property Get Student_Name() As String
    Student_Name = m_Name
End Property

Sub Student_InitializeData(Id As Long, Name As String)
    m_Id = Id
    m_Name = Name
End Sub

Sub Student_ShowData()
    MsgBox "Id: " & Student_Id & ", Name: " & Student_Name
End Sub

Sub TestInterface()

    Dim intf As Student
    Set intf = New Teacher

    intf.InitializeData 1, "ikki"
    
    MsgBox "Id: " & intf.Id & ", Name: " & intf.Name

End Sub