Hi is it possible to copy only the numeric value from one colum to another colum in the same table?

Example:

Sub ABILIFY10()
    Selection.Font.Bold = True
    Selection.TypeText Text:="(ABILIFY 10 MG - CXS. 28 COMP.)"
    Selection.TypeParagraph
    Selection.TypeText Text:="Preço/comp.: "
    Selection.Font.Bold = False
    Selection.TypeText Text:=" CINCO VIRGULA ZERO TRÊS UM SETE OITO SEIS EUROS + IVA…………………………………."
    Selection.Font.Size = 6
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Size = 12
    Selection.Font.Bold = False
    Selection.TypeText Text:="N.º Reg. INFARMED: 5056387"
    Selection.TypeParagraph
End Sub

I want to copy Selection.TypeText Text:="N.º Reg. INFARMED: 5056387"
only the numeric value of this cell (5056387) to another cell in the same table.

you can use the instr() function todo this
the parameters for the function are (starting position, string value, # characters)
you can also use
left(string value, # characters)
mid(string value, start point, # characters)
right(string value, # characters)

in this case you would use

strNewString = right(strInputString, 7)

you may need to use the dollar sign character:

strNewString = right$(strInputString, 7)

then use an append query to insert the value using the return value

if the length of the number is not constant, this makes things more complicated, let me know if this answers your question, ill have more time later to provide a more detailed answer

cheers
scott