Some sort of meta data for Dictionary - vba

Question

I have set up a dictionary with a long list of keys and associated items. The user enters a string of keywords via an input box and vba splits each word into an array, finds the key and adds the item to an output string. For example:
User types in "Dinner Applebee's Restaurant", the code splits the string into three words, then makes a number code where each word is represented by a two-digit number "10 08 70" (spaces added to emphasize number schema).
Here's the problem, "Applebee's Restaurant" flows a little better in English than "Restaurant Applebee's" so the user would most likely type the words in that order but the number should really reflect "Restaurant Applebee's." Like it should be category then place instead of place then category. The number code should actually be "10 70 08."
Is there a way to group dictionary definitions without making a separate dictionary? Or evaluate each word and sort them into a particular order? As in the first two digits will always be greater than 10, the second two digits will also be greater than 10 or will be 00. The third two digits will always be less than 10. So as long as I know what word has less than 10, that number can be last.
It would be easy enough to just type the words in the correct order, but I fear the lay person hardly ever takes the easy route and there is a number of people who will use this, each at their own questionable level of computer-literacy.
An example of code was requested so here it is:
Dim dict As New Scripting.Dictionary
Dim InStr As String ' Input string
Dim Split() As String ' Array to hold words
Dim SegNum As String ' Output string
Dim I As Integer
' Adding searchable items to dictionary
' First two digits
dict.Add Key:="Dinner", Item:=10
dict.Add Key:="Lunch", Item:=15
dict.Add Key:="Breakfast", Item:=20
dict.Add Key:="Snack", Item:=50
' Second two digits
dict.Add Key:="Restaurant", Item:=70
dict.Add Key:="Home Cooked", Item:=80
' Third two digits
dict.Add Key:="Home", Item:=Format(0, "00)
dict.Add Key:="McDonald's", Item:=Format(1, "00")
dict.Add Key:="Burger King", Item:=Format(2,"00")
dict.Add Key:="Wendy's", Item:=Format(3, "00")
..
dict.Add Key:="Applebee's", Item:=Format(8, "00")
SplitStr = Split(InputBox("Please use some keywords to detail what you ate"), " ")
For I = LBound(SplitStr) To UBound(SplitStr)
SegNum = SegNum & dict(SplitStr(I))
Next
MsgBox SegNum

Answer 1

Here's an approach. You'd need to add in checks for two entries from the same category though.
And you have "home cooked" as a value - that will get broken up by Split()
Sub Tester()
Dim dict As New Scripting.Dictionary
Dim InStr As String ' Input string
Dim SplitStr() As String ' Array to hold words
Dim SegNum As String ' Output string
Dim I As Long, srt As Long, wd
dict.CompareMode = TextCompare
srt = 1
dict.Add Key:="Dinner", Item:=Array(10, srt)
dict.Add Key:="Lunch", Item:=Array(15, srt)
dict.Add Key:="Breakfast", Item:=Array(20, srt)
dict.Add Key:="Snack", Item:=Array(50, srt)
' Second two digits
srt = 2
dict.Add Key:="Restaurant", Item:=Array(70, srt)
dict.Add Key:="HomeCooked", Item:=Array(80, srt)
' Third two digits
srt = 3
dict.Add Key:="Home", Item:=Array(0, srt)
dict.Add Key:="McDonald's", Item:=Array(1, srt)
dict.Add Key:="Burger King", Item:=Array(2, srt)
dict.Add Key:="Wendy's", Item:=Array(3, srt)
dict.Add Key:="Applebee's", Item:=Array(8, srt)
SegNum = String(6, " ")
SplitStr = Split("dinner home homecooked")
'SplitStr = Split(InputBox("Please use some keywords to detail what you ate"), " ")
For I = LBound(SplitStr) To UBound(SplitStr)
wd = Trim(SplitStr(I))
If dict.Exists(wd) Then
srt = dict(wd)(1)
Mid(SegNum, 1 + ((srt - 1) * 2), 2) = Format(dict(wd)(0), "00")
End If
Next
MsgBox SegNum
End Sub