Public Function ProductToDWORD(ByVal Product As String) As Long
SelectCase Product
Case "STAR": ProductToDWORD = CLIENT_STAR
Case "SEXP": ProductToDWORD = CLIENT_SEXP
Case "SSHR": ProductToDWORD = CLIENT_SSHR
Case "JSTR": ProductToDWORD = CLIENT_JSTR
Case "DRTL": ProductToDWORD = CLIENT_DRTL
Case "DSHR": ProductToDWORD = CLIENT_DSHR
Case "D2DV": ProductToDWORD = CLIENT_D2DV
Case "D2XP": ProductToDWORD = CLIENT_D2XP
Case "W2BN": ProductToDWORD = CLIENT_W2BN
Case "WAR3": ProductToDWORD = CLIENT_WAR3
Case "W3XP": ProductToDWORD = CLIENT_W3XP
Case "CHAT": ProductToDWORD = CLIENT_CHAT
End Select
End Function