...
...
...
Sub hochu()
Dim ric As String
   fb =  4 
   i = r
            LastName = Cells(i, fb)
            FirstName = Cells(i, fb +  1 )
            MiddleName = Cells(i, fb +  2 )
            dt = Cells(i, fb +  3 )
            DateBorn = Left(dt,  2 ) + Mid(dt,  4 ,  2 ) + "19" + Right(dt,  2 )
            data = LastName + FirstName + MiddleName + DateBorn
            ric = "1234567890123456"
            If CalcRic(ric, data,  0 ) Then
                Cells(i, fb -  1 ) = ric
            End If
            
...
...
...
End Sub