Sub Process_Globals
Type StudentType(Roll as String, Name as String, ...)
End Sub
'change Dim st As StudentType = CreateStudentType(row) to CreateStudentType(row(0), row(1), ...)
'or modify the arguments of the generated sub
Sub CreateStudentType (Roll as String, Name as String, ...) As StudentType
Dim t1 as StudentType
t1.Initialize
t1.Roll = Roll
t1.Name = Name
...
Return t1
End Sub