Dictionary (of integer,class) type - vb.net

Question

I would like to save variables in a simple method before adding to a datatable. Is it possible to have a dictionary (of integer,class) type like the code below? I can then loop through the keys to get the variables.Any ideas please?
Public Class CONTACTS
Dim FIRST_NAME As String
Dim SURNAME As String
Dim DOB As Date
Dim AGE As Integer
End Class
Sub TEST_DICT()
Dim dctCONTACTS As Dictionary(Of Integer, List OF Class(CONTACTS)) 'not sure how to declare this
dctCONTACTS.Add(1, "MARK").FIRST_NAME 'not sure how to savevariable
dctCONTACTS.Add(1, "SMITH").SURNAME
dctCONTACTS.Add(1, "5 May 1995").DOB
dctCONTACTS.Add(1, 31).AGE
dctCONTACTS.Add(2, "ANNE").FIRST_NAME
dctCONTACTS.Add(2, "MOORE").SURNAME
dctCONTACTS.Add(3, "5 April 1990").DOB
dctCONTACTS.Add(4, 26).AGE
Dim X = dctCONTACTS(1).AGE
End Sub

Answer 1

You really you go look at the many many "how to code VB.NET" resources online rather than ask basic syntax questions here.
Here is your code in valid VB.NET:
Public Class CONTACTS
Public FIRST_NAME As String
Public SURNAME As String
Public DOB As Date
Public AGE As Integer
End Class
Sub TEST_DICT()
Dim dctCONTACTS As New Dictionary(Of Integer, List(Of CONTACTS))
dctCONTACTS.Add(1, New List(Of CONTACTS) From
{
New CONTACTS() With { .FIRST_NAME = "MARK", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 },
New CONTACTS() With { .FIRST_NAME = "JOE", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 },
New CONTACTS() With { .FIRST_NAME = "SARAH", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 }
})
dctCONTACTS.Add(2, New List(Of CONTACTS) From
{
New CONTACTS() With { .FIRST_NAME = "BOB", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 },
New CONTACTS() With { .FIRST_NAME = "SUE", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 },
New CONTACTS() With { .FIRST_NAME = "ABIGAIL", .SURNAME = "SMITH", .DOB = New DateTime(1995, 5, 5), .AGE = 31 }
})
Console.WriteLine(dctCONTACTS(2)(0).FIRST_NAME)
End Sub
Running TEST_DICT gives BOB in this case.