I am creating a VB app with a procedure that looks up and returns data based on a value that is passed to it (like querying a record with the record ID). However, my app has no database functions and the data never changes. Is there a better way than using an if...Then or a Case statement?
Private Sub GetData(DataID As Integer, ByRef Data1 As String, ByRef Data2 As Boolean, Data3 As Integer)
Select Case DataID
Data1 = "Hello World"
Data2 = True
Data3 = 32767