Процедурное создание переменной своего типа

Type Student
name  As String
surname As String
dob As Date
End Type
 
 
Sub MMM()
Dim Vasya As Student
Vasya.name = "Вася"
Vasya.surname = "Пупкин"
Vasya.dob = 5 / 31 / 1980
End Sub

Sub createStudent()
  studentCount=Worksheets("Данные").Cells(1, 1).End(xlDown).Row
  for i=1 to studentCount
    [создать переменную типа Student c именем Worksheets("Данные").Cells(studentCount, 1).Value]
  Next
End Sub

enum stydent
fam =11   ''номер столбца в таблице, можно не по порядку
surname=12
zachetka=1
....
end enum
 
'далее обычная обработка 
 
msgbox cells(nstroka,stydent.fam)
'изменив индекс только в перечислении - изменятся индексы и в коде

Type Student
name  As String   '' из табл
surname As String  '' из табл
fullname as string  '' расчетные
fio as string  '' расчетные
dob As Date  '' из табл
wozrast as long  '' расчетные
End Type
''''''''''''''''''''''''''''''''''' 
 Sub createStudent()
  studentCount=Worksheets("Данные").Cells(1, 1).End(xlDown).Row
  for i=2 to studentCount
    mmm j
  Next
End Sub
''''''''''''''''''''''''''''''''
Sub MMM(nstroka)
Dim st As Student
'информация с листа по строке
st.name = cells(nstroka,11)
st.surname =cells(nstroka,12)
'все расчеты  по строке в одном месте  -----это не формулы
st.fullname=st.surname & " " & st.name
st.fio=st.surname & " " & mid(st.name,1,1) & "." 
st.dob = cells(nstroka,25)
st.wozrast=datediff("yyyy",st.dob,date())
debug.print st.fio,st.dob,st.wozrast
End Sub

Private Type Student
    name As String
    age As Integer
End Type
 
Dim stud() As Student
 
Private Sub main()
    ReDim stud(1 To 3)
    stud(1).name = "Vasia"
    stud(1).age = 19
    stud(2).name = "Petia"
    stud(2).age = 21
   
    MsgBox GetStudByName("Vasia").age  '   выдаст 19
    
End Sub
 
 
Private Function GetStudByName(studName As String) As Student
    Dim i As Integer
    For i = 1 To UBound(stud)
        If studName = stud(i).name Then GetStudByName = stud(i)
    Next i
End Function