Obtener un string de una cadena

[Aquaventus]

es cuestion de que pases la cadena a un array de chars y te la juegues alli comparando letra por letra con un for :

Código vb:

Dim cadena As String = "04:24: Marcelo Vidal has left the game"
        Dim nuevaCadena As String = String.Empty
        Dim a As Char() = cadena.ToCharArray
        Dim total As Integer = cadena.Length() - 1
        Dim contador As Integer = 0
 
        For i As Integer = 0 To total
            If a(i).ToString.Equals(":") Then
                contador = contador + 1
            End If
 
 
            If contador >= 2 Then
                If Not a(i).ToString.Equals(":") Then
                    If cadena.Substring(i).ToString.Trim.Equals("has left the game") Then
                        TextBox1.Text = nuevaCadena.Trim
                        Exit For
                    Else
                        nuevaCadena = nuevaCadena & a(i).ToString()
                    End If
                End If
            End If
        Next
 

Saludos!.