or this?
Public Sub AcadStartup()
Dim Preferences As AcadPreferences, intOsmode As Integer
Set Preferences = ThisDrawing.Application.Preferences
Dim strUser As String
strUser = UCase(Environ("USERNAME"))
Select Case strUser
Case "UA02038"
intOsmode = 71
ThisDrawing.SetVariable "ORTHOMODE", 1
Case "UA00648"
intOsmode = 167
ThisDrawing.SetVariable "ORTHOMODE", 1
Case "UA03347"
intOsmode = 19
Case Else
intOsmode = 7
End Select
If intOsmode = 0 Then
ThisDrawing.SetVariable "osmode", 3
Else
ThisDrawing.SetVariable "osmode", intOsmode
End If
Application.Preferences.User.ADCInsertUnitsDefaultSource = acInsertUnitsInches
Application.Preferences.User.ADCInsertUnitsDefaultTarget = acInsertUnitsInches
ThisDrawing.SetVariable "OSNAPZ", 1
End Sub