Transponer datos de un archivo diferente

A los miembros de este foro, en esta ocasión requiero de vuestra ayuda en la aplicación de esta macro, la cual me permite extraer datos de una hoja determinada (otro archivo), cuyo valores son numéricos, pero al ser transportado lo convierte en valor texto.

If celda = "COD" Then
      celda.Offset(, 10) = ""
      registros.Open "select tn from [" & hoja & "$] where cod = """ & celda.Offset(, 1) & """", conexion, 1, 1
      If registros.RecordCount > 0 Then _
        celda.Offset(, 10) = Join(Application.Transpose(Application.Transpose(registros.GetRows)), "; ")
      registros.Close
    End If

Habrá alguna manera que dicho valor al ser transportado se mantenga como numérico, en esta parte de la macro es donde valida el valor texto.

celda.Offset(, 10) = Join(Application.Transpose(Application.Transpose(registros.GetRows)), "; ")