Dim i, j, k, l, x As Integer

        Dim Combinacion As String

        Dim Existe As Boolean

        Dim Caracteres(1000) As String

        ListBox1.Items.Add(TextBox1.Text)

        Do

            x = ListBox1.Items.Count

            For l = 0 To ListBox1.Items.Count - 1

                For i = 0 To TextBox1.Text.Length - 1

                    Caracteres(i) = ListBox1.Items(l).ToString.Substring(i, 1)

                Next

                For i = 0 To TextBox1.Text.Length - 1

                    For j = 0 To TextBox1.Text.Length - 1

                        Existe = False

                        Combinacion = ListBox1.Items(l).ToString

                        Combinacion = Combinacion.Remove(i, 1)

                        Combinacion = Combinacion.Insert(i, Caracteres(j))

                        Combinacion = Combinacion.Remove(j, 1)

                        Combinacion = Combinacion.Insert(j, Caracteres(i))

                        For k = 0 To ListBox1.Items.Count - 1

                            If Combinacion = ListBox1.Items(k) Then Existe = True

                        Next

                        If Existe = False Then ListBox1.Items.Add(Combinacion)

                    Next

                Next

            Next

        Loop Until x = ListBox1.Items.Count
        
    End Sub