Cacher is the code snippet organizer for pro developers

    Dim aimT As String
    If Left(Selection.Text, 1) = "0" Then
        aimT = Replace(Selection.Text, "0", "")
            aimT = FunctionGroup.convertYear(aimT)
        Else
        aimT = FunctionGroup.convertYear(aimT)
    End If
    Selection.Text = aimT