You should be familiar with the following tasks using ...

Case Not VBA.IsNumeric(number): TextNumber = CVErr(xlErrValue): GoTo myEnd. Case Application.IsLogical(number): TextNumber = CVErr(xlErrValue): GoTo myEnd. Case VBA.IsError(number): TextNumber = CVErr(xlErrValue): GoTo myEnd. End Select. Dim R(0 To 14) As Variant. Dim HD As Variant. Dim Y As Variant. Dim numberDEC As Variant: numberDEC = number ... ................
................