The below program will do so
Dim studentTupleStaticCreates As New List(Of Tuple(Of String, Integer, List(Of String)))()
Enumerable.Range(1, 3).ToList().ForEach(Function(i) studentTupleStaticCreates.Add(Tuple.Create(String.Concat("Student", i), i + 16, New List(Of String)() From { _
String.Concat("Subject", i), _
String.Concat("Subject", i + 1), _
String.Concat("Subject", i + 2) _
})))