جستجوی یک کلمه و کپی آن در تکس باکس

[Rain_Saeid]

با سلام و درود
دوستان و اساتید بنده ی تکس فایل دارم که متن زیر داخلش هست :

کد php:

bootloader) version-cpld: None
bootloader) version-microp: 0622
bootloader) version-main: 2.37.415.1 


میخوام با ی کلیک :
None بره داخل ی تکس باکس
0622 بره داخل ی تکس باکس دیگه
2.37.415.1 هم بره داخل ی تکس باکس دیگه

این گزینه ها که نوشتم ، متغیر هست

ممنون میشم راهنمایی بفرمایید
تشکر

[Di Di]

کد php:

Dim Patern(3) As String
     
        Dim i As Short, b As Short
        Dim a As String = ""
        Patern(1) = "version-cpld:"
        Patern(2) = "version-microp:"
        Patern(3) = "version-main:"
        FileOpen(1, "C:\txtfile.txt", OpenMode.Input)
        While EOF(1)=False
            Input(1, a)
            For i = 1 To 3
                b = InStr(1, a, Patern(i), CompareMethod.Text)
                If b>1 Then
                    txt(i).Text = Trim(Right, a, Len(a)-(b+Len(Patern(i))))
                End If
            Next i
        End While 


اميدوارم كمك كنه