Aproximar numero

[natalyro]

Gracias Avellaneda, si si lo acepta...

Tengo una duda, resulta que tengo una tabla y en ella tengo una campo donde almaceno los empaques de los productos por ejemplo: tambor de 227 KG, alguien aqui en el foro me ayudo a separar el texto de los numeros para operar con ellos, hasta ahi todo bien...
mi problema es que la funcion no me recorre el campo del empaque para sacarme el numero requerido, si no que siempre me saca el primer registro de la tabla.

la funcion es esta pero necesito que avance en el campo hasta sacar el numero requerido.

'declaro el objeto como una expresion regular
Dim regExp As Object
Dim texto As String

'variable que almacena el peso del tambor
'pesot = 0
texto = Cbo_Empaque.Text
'creo el Objecto
Set regExp = CreateObject("VBScript.regExp")
'Patron para comprobar si existen numeros
regExp.Pattern = "(\d+)"

'separo el numero del texto y lo almaceno
If regExp.Test(texto) Then
pesot = regExp.Execute(texto)(0).Value
End If
Set regExp = Nothing