strSFZ As String) As String
Dim i As Long
If VBA.Len(strSFZ) = 15 Then
i = VBA.CInt...(VBA.Mid$(strSFZ, 15, 1))
ElseIf VBA.Len(strSFZ) = 18 Then
i = VBA.CInt(VBA.Mid$(strSFZ,...("19" & VBA.Mid$(strSFZ, 7, 2)), VBA.CInt(VBA.Mid$(strSFZ, 9, 2)), VBA.CInt(VBA.Mid$(strSFZ, 11, 2)))...ElseIf VBA.Len(strSFZ) = 18 Then
GetBirthrDayFromSFZ = VBA.DateSerial(VBA.CInt(VBA.Mid$(...strSFZ, 7, 4)), VBA.CInt(VBA.Mid$(strSFZ, 11, 2)), VBA.CInt(VBA.Mid$(strSFZ, 13, 2)))
Else