VBA field converter

[JuniorWoodchuck24]

Was curious how you would code something in the VBA that converts certain text in a field to a number. Example below:

Make
Ford -1
Toyota -2
Chevy - 3

Model
Mustang - 1
Camry - 2
Camaro - 3

So I'd hit a button/key that goes into the fields titled make/model and it converts the name into the number.

Reason I'm doing this is the number refers to the primary key in access and I'm trying to ease the user's ability to do a data dump.

 

[Access_guy49]

I would create an update query that does this. and a button that just runs the update query.