SoloCodigo

viendo este tema......
como se le haria, para que ya una vez encontrada la palabra, me recoja un valor que tiene a un lado???

Por ejemplo:

XXXXXX XXXXXXXXXXXXXX XXXXXXXXXXXXXXX
XXXX XXXXX Palabra Valor XXXXXXXXX XXXXXX
XXXXX XXXXXXXXXXXXXXXX XXXXXXX XXXXXXX
XXXXXXXXX XXXXXXXXXXXXX XXXXXXXXXXXXX

Necesito encontrar 'Palabra' y se que junto a ella estara un valor (la longitud puede variar) inclusive puede estar en diferentes renglones, pero siempre entre espacios en blanco

Esto es lo que llevo ahorita
lo que necesito es, ke al momento de encontrar esa cadena, me tome el siguiente valor (el cual esta rodeado de dos espacios en blanco, kreo ke en ascii viene siendo el char 32) pero su longitud puede variar, ah y el valor es numerico.

Private Sub Command1_Click()
 Dim Search, Where   ' Declara variables.
   ' Obtiene del usuario la cadena de búsqueda.
   
    Search = InputBox("Escriba el texto que desea buscar:")

   Where = InStr(Text1.Text, Search)    ' Busca la cadena en el texto.
   If Where Then                     ' Si se encuentra,
      Text1.SelStart = Where - 1  ' se establece el inicio de la selección
      Text1.SelLength = Len(Search) ' y se establece la longitud para
      Text1.SetFocus                      ' seleccionar.
     
   Else
      MsgBox "Cadena no encontrada."  
   End If

End Sub

Solo necesito el primer numero despues de cada palabra, para despues extraerlo y pasarlo aun textbox

Valor0 60 0 0 0 0
Valor1 838 0 0 0 0
Valor2 5759 0 0 0 0
Valor3 6399 0 0 0 0
Valor4 11556 0 0 0 0

Tal vez esta medio complicado esto, pero ojala y me puedan ayudar
Gracias