[ابراهيم ايبو]

السلام عليكم اخي محمد
بالرغم من عدم فهمي لمت تريد تماما ولكن اليك الكود مع الانتباه بأن النتيجة ستكون بهذا الشكل لانه سيتحقق من العناصر كلها

كود :

STARTONE
man
spare:22h5zgcw
spare

وليس كما اسلفت انت 

كود :

STARTONE
man
spare:22h5zgcw

والكود اصبح هكذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim tmpLista As New List(Of String)
       tmpLista.add("STARTONE")
       tmpLista.add("man")
       tmpLista.add("spare")
       Dim tmpListb As New List(Of String)

       tmpListb.Add("STARTONE:Present")
       tmpListb.Add("STARTONE:")
       tmpListb.Add("spare:Present")
       tmpListb.Add("spare:22h5zgcw")

       Dim tmpListc As New List(Of String)
       Dim a As String = ""
       For Each valu As String In tmpLista
           For Each x As String In tmpListb
               a = x.Split(":").Last '   جلب القسم الاخير
               If x.Contains(valu) And a <> Nothing And a <> "Present" Then
                   tmpListc.Add(valu + ":" + a)
                   TextBox1.Text += valu + ":" + a & vbNewLine
               End If
           Next
           If a <> valu Then
               tmpListc.Add(valu)
               TextBox1.Text += valu & vbNewLine
           End If
       Next
   End Sub