perdon cicklow te sigo al pie dela letra y aun no lo logro te paso tal cual como lo puse y fijate:
Private Sub Command1_Click()beto.Value = tmptxt
End SubPrivate Sub Form_Load()Open "c:\texto.txt" For Input As #1
contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido
sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
Dim Numeros(1 To 10000) 'Creamos un vector
'rellenamos el vector (no es nesesario pero sirve
For I = 1 To UBound(Numeros)
Numeros(I) = ""
Next
'**************************************************
For I = 1 To Len(Text1.Text) 'desde 1 hasta lo que tiene el text1
car = Mid(Text1.Text, I, 1) 'guardamos de a 1 caracter
If sw1 = 1 Then '1
numero = numero & car
sw2 = 1
End If
If sw2 = 1 And car = " " Then '2
Numeros(X) = numero
X = X + 1
numero = ""
sw1 = 0: sw2 = 0
End If
If car = "=" Then sw1 = 1 '3
Next
'***********************************************
Dim tmptxt
tmptxt = ""
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
Exit For
End If
Next
End Sub