Separar texto de numeros

[David]

Tal vez algo así te sirva:

Código vb:

Dim Texto As String
Dim sTexto() As String
Dim Looping As Byte
 
Texto = "tambor plastico por 227 Kg"
'Convertir la cadena en un arreglo, usando como separador el espacio " "
sTexto = Split(Texto, " ")
'Recorrer todos los elementos obtenidos
For Looping = 0 To UBound(sTexto)
    'Si es numérico salir del bucle
    If IsNumeric(sTexto(Looping)) Then Exit For
Next Looping
MsgBox sTexto(Looping)