请问如何转换如下的处理逻辑(求岁数)

[fangxu1999]

A1..An中保存的是身份证号码信息，希望能够在B1..Bn中得到相应当前日期的岁数信息。希望可以提供一个按钮能够实现自动求值的功能。
处理逻辑的伪代码如下，由于没有彻底的学过VB编程，请问如何转换如下的代码。
谢谢各位了。
for(int i=1; i<=n; i++){
String str = Range(Ai);
String birthYear;
if(str.length()==18){
birthYear = str.substring(6, 4);
}
else if(str.length()==15){
birthYear = "19"+str.substring(6,2);
}
Range(Bi) = currentYear-birthYear;
}

[homesos]

Private Sub CommandButton1_Click()

Dim iRowIndex As Integer
Dim strID As String
Dim strYear As String

iRowIndex = 1

Do While 1
   strID = Sheet1.Range("A" & iRowIndex).Value
   
   If strID = "" Then
        Exit Sub
   End If
   
   If Len(strID) = 18 Then
        strYear = Mid(strID, 7, 4)
   ElseIf Len(strID) = 15 Then
        strYear = "19" + Mid(strID, 7, 2)
   End If
   
   Sheet1.Range("B" & iRowIndex).Value = CInt(Year(Now)) - CInt(strYear)
   
   iRowIndex = iRowIndex + 1
Loop
End Sub

[fangxu1999]

很全面，谢谢了。