Visual Basic

Hi, I need help looking for the code to send an image via the bot

Helo, acording to this code (In Visual Basic for word):
The code works for me, but it is not what I want...

The problem is: I only wont to select a colored text (example -> A text colored in Red), selecting all the words colored by Red. 
I am very frustrated because I have tried everything but it does not work for me.
My goal is taking that colored text to another word document. The most important colored text i have in the document is colored in blue sky.
Sorry for the writing and thank you for your trouble.


//Replace text color//

    Sub ChangeColorWithReplace()
        Selection.Find.ClearFormatting
        Selection.Find.Font.Color = wdColorRed
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Replacement.Font.Color = -603914241
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchByte = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Text
Imports System.Threading


Public Class Form1

    
    Dim value As Byte
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    SerialPort1.Encoding = System.Text.Encoding.GetEncoding(1252)
    SerialPort1.Open()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SerialPort1.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim array(6) As Byte
        array(0) = &H3
        array(1) = &H1
        array(2) = &H1
        array(3) = &HA4
        array(4) = &HA5
        array(5) = &HB2
        SerialPort1.Write(array, 0, array.Length)
        Label1.Text = ""
      
        For i = 0 To 10
            value = SerialPort1.ReadByte()
            Label1.Text += value.ToString("x2") + " "
        Next
    End Sub

03 01 01 A4 A5 B2 00 00 03 00 FC

03 01 01 A4 A5 B2 01 00 03 00 FC

Compile error:
User-defined type no defined

What causes this error?

Player.name = "Player" & +1

Public Class Form1
    Private WithEvents Player As AxAXVLC.AxVLCPlugin2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Player = New AxAXVLC.AxVLCPlugin2
        FlowLayoutPanel1.Controls.Add(Player)
        Player.playlist.add("VideoUrl")
        Player.playlist.play()
        'each click adds a new player but the name is "Player" for all players not like "Player1, Player2..."

    End Sub

Module Module1

    Sub Main()
        Console.WriteLine("Start of Run")
        Run()
        Console.WriteLine("End of Run")
        Console.ReadLine()
    End Sub

    Async Sub Run()
        Dim arg = "LEET 1337"
        Await Threading.Tasks.Task.Run(Function() Foo(arg)) ' This line fails...
    End Sub

    Sub Foo(ByVal asdf As String)
        Console.WriteLine("Start of Foo")
        Threading.Thread.Sleep(5000)
        Console.WriteLine(asdf)
        Console.WriteLine("End of Foo")
    End Sub

End Module

using System;
using System.Threading;
using System.Threading.Tasks;

namespace ConsoleApplication
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.WriteLine("Start Run");
            Run();
            Console.WriteLine("End of Run");
            Console.ReadLine();
        }

        static async void Run()
        {
            var arg = "LEET 1337";
            await Task.Run(() => Foo(arg)); // This line works.
        }

        static void Foo(string asdf)
        {
            Console.WriteLine("Start Foo");
            Thread.Sleep(5000);
            Console.WriteLine(asdf);
            Console.WriteLine("End of Foo");
        }
    }
}

For Each proc As Process In Process.GetProcesses
    If proc.ProcessName.Contains("testApp") = True Then
        Debug.WriteLine("application is running")
    End If
Next

For Each proc As Process In Process.GetProcesses
     If proc.ProcessName.Contains("testApp") = True Then
         Dim proccount As String = proc.ProcessName.Contains("testApp")
         If proccount.Count >= 1 Then
             Debug.WriteLine("application is already running")
         End If
     End If
 Next