获取生日：

Function 获取生日(身份证号码 As String) As String
    If Len(身份证号码) <> 15 And Len(身份证号码) <> 18 Then
        MsgBox "身份证号码为15或者18位，请重新填写!", vbInformation, "提示"
        Exit Function
    End If
    If Len(身份证号码) = 15 Then
        获取生日 = DateSerial("19" & Mid([身份证号码], 7, 2), Mid([身份证号码], 9, 2), Mid([身份证号码], 11, 2))
        Exit Function
    End If
    If Len(身份证号码) = 18 Then
        获取生日 = DateSerial(Mid([身份证号码], 7, 4), Mid([身份证号码], 11, 2), Mid([身份证号码], 13, 2))
        Exit Function
    End If
End Function

获取性别：

Function 获取性别(身份证号码 As String) As String
    If Len(身份证号码) <> 15 And Len(身份证号码) <> 18 Then
        MsgBox "身份证号码为15或者18位，请重新填写!", vbInformation, "提示"
        Exit Function
    End If
    If Len(身份证号码) = 15 Then
        If Mid([身份证号码], 15, 1) Mod 2 = 0 Then
            获取性别 = "女"
        Else
            获取性别 = "男"
            Exit Function
        End If
    End If
    If Len(身份证号码) = 18 Then

        If Mid([身份证号码], 17, 1) Mod 2 = 0 Then
            获取性别 = "女"
        Else
            获取性别 = "男"
            Exit Function
        End If
    End If
End Function