Code:
  Structure employee
        Dim employeenumber As Integer
        Dim name As String
        Dim dob As Date
        Dim age As Integer
        Dim ninumber As String
        Dim hourlyrate As Decimal
        Structure pay
            Dim month As String
            Dim hoursworked As Integer
            Dim normalpay As Decimal
            Dim overtimepay As Decimal
            Dim normalhoursworked As Integer
            Dim overtimehoursworked As Integer
            Dim overtimerate As Decimal
            Dim grosspay As Decimal
            Dim taxrate As Decimal
            Dim taxdeducted As Decimal
            Dim nideducted As Decimal
            Dim netpay As Decimal

        End Structure
  End Structure

Code:
        Dim personList As New List(Of employee)
        Dim personNList As employee

        personNList.name = "Smith"
        personNList.dob = "20/06/1976"
        personNList.age = 20
        personNList.ninumber = "ninumber"
        personNList.hourlyrate = 1.5

        personList.Add(personNList)