Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String
        str =<erstes generiertes Zeichen>
            For x as Integer = 1 to <Länge des PW -1>
                If str.Contains(<x. generiertes Zeichen>) = True Then
                    String.concat(str, <x. generiertes Zeichen>)
                End If
            Next
    End Sub

Gruss Caddy