[myalsailamy]

اتمنى اني فهمتك كويس  //

كود :

        Dim result As String = ""
        Dim TargetGroups() As String = New String() {"4AS", "E5T", "E65", "Z7S"}
        Dim strGroups() As String = TextBox1.Text.Split(" ")
        If strGroups.Length > 0 Then
            For Each Group As String In strGroups
                If TargetGroups.Contains(Group.Trim) = True Then
                    result += "8"
                Else
                    result += "*"
                End If
            Next
        End If
        TextBox2.Text = result