Visual Basic.NET - Variables de texto parecidas

If Variable1 = Variable2 Then

' los textos están mismos

Else

' no mismos textos

End If

Private Funcion V2_Esta_En_V1(V1 as String, V2 as String) As Boolean

  If V2 .... .... .... V1 Then

     Return True

  Else

     Return False

  End If

End Function

If  V2_Esta_En_V1(Variable1, Variable2) Then

' parte de Variable2 existe en Variable1

Else

' no parte de Variable2 existe en Variable1

End If

Private Sub BOtra_Click(sender As Object, e As EventArgs) Handles BOtra.Click

        ' Precauciones iniciales

        If TBVariable1.Text = String.Empty Or TBVariable2.Text = String.Empty Then

            Exit Sub

        End If

        If TBCantidad.Text < "2" Then

            TBCantidad.Text = 1

        End If

        LBEncontrados.Items.Clear()

        ' Los datos

        Dim Variable1 As String = TBVariable1.Text

        Dim Variable2 As String = TBVariable2.Text

        Dim Cantidad As Integer = TBCantidad.Text

        ' Los variables para trabajar

        Dim ABuscar As String = ""

        Dim Resultado As String = ""

        Dim Indicio As Integer = 0

        ' El procesamiento

        Dim CantidadMax As Integer

        If Variable1.Length < Variable2.Length Then

            CantidadMax = Variable1.Length

        Else

            CantidadMax = Variable2.Length

        End If

        For C = CantidadMax To Cantidad Step -1

            For i As Integer = 0 To Variable2.Length - C

                ABuscar = Variable2.Substring(i, C)

                Indicio = Variable1.IndexOf(ABuscar)

                Resultado = ABuscar & " al indicio " & Indicio

                If Indicio > -1 Then

                    LBEncontrados.Items.Add(Resultado)

                End If

            Next

        Next

    End Sub