خواندن فایل txt از ورودی و انجام اعمال ریاضی روی سطرهای خاصی از آن

[mohammadbm62]

سلام
میخاستم ببینم چطوری میشه یک فایل txt رو از ورودی خواند که فرمت محتویات آن به شکل زیر است:
عدد،x ،y،z،رشته
x y z عدد هستند .
به تعداد نامشخصی سطر از این فرمت وجود داره مثلا ممکنه 100 سطر با همین فرمت باشه .
حالا میخام اگه امکان داره بگین چطوری میشه مثلا x سطر اول را از x سطر هفتم جمع یا تفریق کرد و حاصلشم نمایش داد به همین ترتیب برای y و z
با تشکر

[alirezash]

دوست عزیز . یک کم توضیح بیشتر میدی

[alirezash]

دوست عزیز شاید این بدردت بخوره

Private Sub Form_Load()
Dim intfnum As String
Dim intctr As String
intfnum = FreeFile
Open "c:\1.txt" For Input As #intfnum
Do While Not EOF(intfnum)
Input #intfnum, x$, y$, z$
List1.AddItem x$
List2.AddItem y$
List3.AddItem z$
Loop
Close
End Sub