用vb根据身份证号提取省份，出生日期，性别，校验码。怎么写？具体正确，再给奖励2。

选择表壳中部(Trim(Text1。Text)，1，2)

案例11

？文本2。Text = "北京"

案例12

？文本2。Text = "天津"

案例13

？文本2。Text = "河北省"

案例14

？文本2。Text = "山西省"

案例15

？文本2。Text = "内蒙古自治区"

案例21

？文本2。Text = "辽宁省"

案例22

？文本2。Text = "吉林省"

案例23

？文本2。Text = "黑龙江省"

案例31

？文本2。Text = "上海"

案例32

？文本2。Text = "江苏省"

案例33

？文本2。Text = "浙江省"

案例34

？文本2。Text = "安徽省"

案例35

？文本2。Text = "福建省"

案例36

？文本2。Text = "江西省"

案例37

？文本2。Text = "山东省"

案例41

？文本2。Text = "河南省"

案例42

？文本2。Text = "湖北省"

案例43

？文本2。Text = "湖南省"

案例44

？文本2。Text = "广东省"

案例45

？文本2。Text = "广西壮族自治区"

案例46

？文本2。Text = "海南省"

案例50

？文本2。Text = "重庆"

案例51

？文本2。Text = "四川省"

案例52

？文本2。Text = "贵州省"

案例53

？文本2。Text = "云南省"

案例54

？文本2。Text = "西藏自治区"

案例61

？文本2。Text = "陕西省"

案例62

？文本2。Text = "甘肃省"

案例63

？文本2。Text = "青海省"

案例64

？文本2。Text = "你喜欢回族自治区吗"

案例65

？文本2。Text = "新疆维吾尔自治区"

案例71

？文本2。Text = "台湾省省"

案例72

？文本2。Text = "香港特别行政区"

案例73

？文本2。Text = "澳门特别行政区"

结束选择

短信3。Text = Mid(Text1。正文，7，8)

text 4 . text = IIF(val(mid(text 1 . text，17，1)) mod 2 = 0，"女性"，"男性")

文本5。Text = Mid(Text1。正文，18，1)

末端接头