My current code is this:

Public Sub LKS()
adtApp.Init acadApp ' Initialize ADT
Dim acadApp As AcadApplication
Dim adtApp As AecArchBaseApplication
Dim docs As AecArchBaseDocuments
Dim doc As AecArchBaseDocument
Dim dbpref As aecarchbasedatabasepreferences
Set dbpref = AecArchBaseApplication.ActiveDocument.Preferences

Dim laystandard As String
laystandard = dbpref.layerstandard

' Test if layer standard is set
If laystandard = "" Then
laystandard = "not set"
End If

MsgBox "The current value for LayerStandard is: " & laystandard, _
vbInformation, "LayerStandard Example"

End Sub