以下是一个使用VBA编写的从身份证号码中获取年龄的示例代码：

Sub GetAge()  
    Dim age As Integer  
    Dim regCode As String  
    Dim lngYear As Integer  
     
    ' 获取身份证号码  
    regCode = InputBox("请输入身份证号码：")  
      
    ' 将身份证号码转换为字符串  
    regCode = CStr(regCode)  
      
    ' 获取出生年份  
    lngYear = Year(regCode)  
      
    ' 计算年龄  
    age = lngYear - 1900  
      
    ' 显示年龄  
    MsgBox "您的年龄是：" & age  
End Sub

在这个示例中，我们首先使用 InputBox 函数获取用户输入的身份证号码，并将其存储在变量 regCode 中。然后，我们使用 CStr 函数将 regCode 转换为字符串，以便能够将其存储在变量 regCode 中。

接下来，我们使用 Year 函数获取身份证号码中的出生年份，并将其存储在变量 lngYear 中。

最后，我们计算年龄并使用 MsgBox 函数显示年龄。

请注意，这个示例中的代码仅适用于中国大陆的身份证号码。如果您需要处理其他地区的身份证号码，请相应地更改代码中的地区代码。
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence