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