with Classes

You can add multiple values to a dictionary.
One way to do this is to create a class module called class_MultipleValues containing multiple fields

public myID As Integer 
Public myField1 As String 
Public myField2 As Integer 
Public myField3 As Boolean 

Set oMyValues = New class_MultipleValues 
oMyValues.myID = 1 
oMyValues.myField1 = "text" 
oMyValues.myField2 = 50 
oMyValues.myField3 = False 

oDict.Add(oMyValues.myID, oMyValues)