主题：身份证提取性别

ReadSex(Value)

Value：身份证号码

例如：

Dim Identify As String = "410110197109172433"
Dim Sex As String = ReadSex(Identify)
Output.Show(Sex)

上述代码的输出结果是“男”。

请问下这上面的身份证号码提取性别的方法，怎么操作？