Public Class Lists


    Public Shared Function InList(name As String, letter As Char, num As Int16, time As Date, inData As List(Of Inputs))

        Dim i As Short = inData.Count

        inData.Add(New Inputs)

        inData.Item(i).Name = name
        inData.Item(i).Letter = letter
        inData.Item(i).Number = num
        inData.Item(i).Time = time

        Return inData


    End Function


    Class Inputs

        Public Property Name As String
        Public Property Letter As Char
        Public Property Number As Int16
        Public Property Time As Date


    End Class

End Class