以下是一个使用VBA编写的从身份证号码中提取年龄的示例代码：
```vba
Sub ExtractAge()  
    Dim age As Integer  
    Dim regCode As String  
    Dim lngYear As Integer  
      
    ' 获取身份证号码  
    regCode = InputBox("请输入身份证号码：")  
      
    ' 将身份证号码转换为字符串  
    regCode = Right(regCode, 4) & Right(regCode, 2) & Right(regCode, 2) & Right(regCode, 4)  
      
    ' 获取出生年份  
    lngYear = Year(Right(regCode, 2))  
      
    ' 计算年龄  
    age = lngYear - 1900  
      
    ' 显示结果  
    MsgBox "您的年龄是：" & age  
End Sub
```
在这个示例代码中，我们首先使用 InputBox 函数获取用户输入的身份证号码。然后，我们将身份证号码转换为字符串，并使用 Year 函数获取出生年份。最后，我们计算年龄并使用 MsgBox 函数显示结果。

请注意，这个示例代码假设输入的身份证号码是有效的。如果输入的身份证号码不合法或不存在，则会引发异常。在实际应用中，您需要根据实际情况进行修改和调整。
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence