Aqui esta la posible solucion a tu problema, tengo un zip con el cofigo fuente con su forma, pero no me se tu email para mandartelo.
' constantes para asemejar los codigos de los articulos
Const a = 10
Const b = 20
Const c = 30
Const d = 40
Const e = 50
Rem constantes para asemejar los articulos
Const g = "camiza"
Const h = "pantalon"
Const i = "zapatos"
Const j = "short"
Const k = "corbata"
Rem para almacenar el valor de loa articulos
Dim f As Double
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Rem proceso del conteo de los articulos
contar
Rem meter todo en el archivo de texto
guardar
Case 1
End
End Select
End Sub
Sub guardar()
Rem saltar de linea
l = Chr(13) & Chr(10)
Rem meter al archivo de texto
Open "c:pruebas.txt" For Output As #1
Print #1, "Nombre: " & Text1(0)
Print #1, "Direccion: " & Text1(1)
Print #1, "Telefono: " & Text1(2)
Print #1, ""
Print #1, "Articulo: " & g & " = $" & a & " pesos"
Print #1, "Articulo: " & h & " = $" & b & " pesos"
Print #1, "Articulo: " & i & " = $" & c & " pesos"
Print #1, "Articulo: " & j & " = $" & d & " pesos"
Print #1, "Articulo: " & k & " = $" & e & " pesos"
Print #1, "_________________"
Print #1, "total = " & f & " pesos"
Close #1
End Sub
Sub contar()
Rem asociar las constantes con los textos de los codigos
Text1(3) = a
Text1(4) = b
Text1(5) = c
Text1(6) = d
Text1(7) = e
Rem sumar los articulos
f = a + b + c + d + e
Rem poner el valor de los articulos
Label9.Caption = f
List1.AddItem "Nombre: " & Text1(0)
List1.AddItem "Direccion: " & Text1(1)
List1.AddItem "Telefono: " & Text1(2)
List1.AddItem "Articulo: " & g & " = $" & a & " pesos"
List1.AddItem "Articulo: " & h & " = $" & b & " pesos"
List1.AddItem "Articulo: " & i & " = $" & c & " pesos"
List1.AddItem "Articulo: " & j & " = $" & d & " pesos"
List1.AddItem "Articulo: " & k & " = $" & e & " pesos"
List1.AddItem "________________________"
List1.AddItem "total = " & f
End Sub