I'm successfully using the code below to decode Vehicle Identification Numbers (VINs); but I'm looking for a VIN encoder module. Anyone?
Public Function isVIN(strVIN As String) As String
Dim I As Integer
Dim intCount As Integer
Dim intCount2 As Integer
Dim aModelYears() As Variant
Dim...