Dim sonderzeichen2 As String = "!?µ§" & Chr(34) & "%$&/(" & _
                  ")=}{[]+*'#~´`^ <>|-_.,:;ß"
                For i As Integer = 0 To sonderzeichen2.Length - 1
                    If org_pw.Contains(sonderzeichen2(i)) Then
                        sonderzeichen = True
                        Exit For
                    End If
                Next