For I=0 To List1.ListCount-1
 DE.RSCommand1.Ejecute("INSERT INTO tabla VALUES (" & I & ",'" & List1.List(I) & "')")
Next

Private Sub Form1_Load()
Open "c:\texto.txt" For Input As #1
    contenido = Input(LOF(1), 1)
Close
Text1.Text = contenido
End Sub

Private Sub Command1_Click()
sw1 = 0: sw2 = 0: X = 1 'Iniciamos las variables
sw3 = 0
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)
   car = Mid(Text1.Text, I, 1)
   If sw1 = 1 Then
     numero = numero & car
     sw2 = 1
   End If
   If sw2 = 1 And car = " " Then
     Numeros(X) = Trim(numero)
     X = X + 1
     numero = ""
     sw1 = 0: sw2 = 0: sw3 = 0
   End If
   If car = " " And sw3 = 1 Then sw1 = 1
   If car = "=" And sw3 = 0 Then sw3 = 1
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
Text2 = tmptxt
End Sub

dim x as integer,z as integer
 z=1
 x=0

espacio = " "
 if x=0 then
   for i =1 to z
    comp = comp & espacio
   next
   form1.caption = comp & " Cicklow SOFT®"
   z=z+1
   if z>10 then x=0:z=0
 else
   form1.caption = left("Cicklow SOFT®",len("Cicklow SOFT®")-z)
   z=z-1
   if z <=0 then z=1:x=0
 endif

beto.text = ?

Private Sub Command1_Click()
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 'en el anterior si la colokas aka a la variable
tmptxt = "" 'la lee el evento load nada mas!!!!!! colokalas     
                 'colokalas en la general para que te la lean todos!
For I = 1 To UBound(Numeros)
If Numeros(I) <> "" Then
   tmptxt = Numeros(I) & vbNewLine & tmptxt
Else
  Exit For
End If
Next

beto.Value = tmptxt

End Sub