vb代码判断性别

㈠ 用vb根据身份证号提取其中的省份，出生日期，性别，校验码的代码,怎么写啊，要具体的正确的，再悬赏2

Private Sub Command1_Click()

Select Case Mid(Trim(Text1.Text), 1, 2)

Case 11

Text2.Text = "北京市"

Case 12

Text2.Text = "天津市"

Case 13

Text2.Text = "河北省"

Case 14

Text2.Text = "山西省"

Case 15

Text2.Text = "内蒙古自治区"

Case 21

Text2.Text = "辽宁省"

Case 22

Text2.Text = "吉林省"

Case 23

Text2.Text = "黑龙江省"

Case 31

Text2.Text = "上海市"

Case 32

Text2.Text = "江苏省"

Case 33

Text2.Text = "浙江省"

Case 34

Text2.Text = "安徽省"

Case 35

Text2.Text = "福建省"

Case 36

Text2.Text = "江西省"

Case 37

Text2.Text = "山东省"

Case 41

Text2.Text = "河南省"

Case 42

Text2.Text = "湖北省"

Case 43

Text2.Text = "湖南省"

Case 44

Text2.Text = "广东省"

Case 45

Text2.Text = "广西壮族自治区"

Case 46

Text2.Text = "海南省"

Case 50

Text2.Text = "重庆市"

Case 51

Text2.Text = "四川省"

Case 52

Text2.Text = "贵州省"

Case 53

Text2.Text = "云南省"

Case 54

Text2.Text = "西藏自治区"

Case 61

Text2.Text = "陕西省"

Case 62

Text2.Text = "甘肃省"

Case 63

Text2.Text = "青海省"

Case 64

Text2.Text = "你喜欢回族自治区"

Case 65

Text2.Text = "新疆维吾尔自治区"

Case 71

Text2.Text = "台湾省"

Case 72

Text2.Text = "香港特别行政区"

Case 73

Text2.Text = "澳门特别行政区"

End Select

Text3.Text = Mid(Text1.Text, 7, 8)

Text4.Text = IIf(Val(Mid(Text1.Text, 17, 1)) Mod 2 = 0, "女", "男")

Text5.Text = Mid(Text1.Text, 18, 1)

End Sub

㈡ vb通过输入身份证号码显示性别

str_id = input("请输入身份证号码:")
gender = int(mid(str_id,17,1))

if gender % 2 =1
MsgBox "男"
else
MsgBox "女"