(20-06-20, 05:13 PM)ابراهيم ايبو كتب :  السلام عليكم ورحمة الله وبركاته 
اخي محمد ماكتبته هو لائحة وليس مصفوفة وهي قريبة جدا منها لكن يوجد بعض الفروقات بين خصائص اللائحة والمصفوفة 
منها مثلا المصفوفة يحدد طولها عند التعريف  او تسند القيم بدون تحديد الطول بينما اللائحة لانحدد طولها
 كما ان المصفوفة عندما نحذف احد قيمها يبقى مكانها محجوزا بينما اللائحة فلا وهناك اختلافات اخرى تابع هذا الرابط للتعرف اكثر
https://www.youtube.com/watch?v=dMgAg9pWdoI&list=PLgb1QHu0tFi1C4XDoIW7HMEjXLJ31eT4n&index=146
المهم انا لم افهم ماتريد بالضبظ وبخاصة ان عناصر اللائحة الثانية تحتوي على ("") دبل كوتيشن
ناحية اخرى من ناحية تعدد الشروط حيث تختلف عبارة And عن AndAlso حيث الاولى تتحقق من كل الشروط تم تعمل ان كانت true بينما الثانية تتحقق من من الشروط تباعا وعند اول قيمة false تتوقف 
هذا السطر ايضا مالذي تريد منه
Dim a As String = x.Remove(0, x.IndexOf(":"))
ارجو المزيد من الايضاح
قمت بترتيب مااوردته مع تغيير السطر السابق الى اخذ القسم الاول 
لا اعلم ان كانت النتيجة هي المطلوبة

كود :

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)

       For Each value As String In tmpLista
           For Each x As String In tmpListb
               Dim a As String = x.Split(":").First ' هنا تم تغيير السطر الى جلب القسم الاول
               If x.Contains(value) And a <> Nothing And a <> "Present" Then
                   tmpListc.Add(value + ":" + a)
                   TextBox1.Text += value + ":" + a & vbNewLine

               Else
                   tmpListc.Add(value)
                   TextBox1.Text += value & vbNewLine
               End If
           Next

       Next
   End Sub

(20-06-20, 11:49 PM)ابراهيم ايبو كتب : السلام عليكم اخي محمد
بالرغم من عدم فهمي لمت تريد تماما ولكن اليك الكود مع الانتباه بأن النتيجة ستكون بهذا الشكل لانه سيتحقق من العناصر كلها

كود :

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