You guys have been such a great help to me, let me share this.
What I wanted to do was create a LayerState named "Temp" that I could save, and overwrite as needed. Here is the completed blurb of code in ADT2005)
Private Sub cmdTLS_Click()
On Error Resume Next
Dim colLayers As AcadLayers
Dim objDict As AcadDictionary
Dim objLayerStates As AcadDictionary
Dim objXrec As AcadXRecord
Set colLayers = ThisDrawing.Layers
If colLayers.HasExtensionDictionary Then
Set objDict = colLayers.GetExtensionDictionary
Set objLayerStates = objDict("Acad_LayerStates")
objLayerStates("temp").Delete
End If
'''
Dim oLSM As AcadLayerStateManager
' Access the LayerStateManager object
Set oLSM = ThisDrawing.Application. _
GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")
' Associate the current drawing database with LayerStateManager
oLSM.SetDatabase ThisDrawing.Database
oLSM.Save "Temp", acLsOn + acLsFrozen + acLsLocked
Me.hide
End Sub