
... klein und großbuchstaben sowie whitepaces enthält:

String pattern = "[a-zA-Z\\s]+";


\W --->  Match any character that is NOT alphanumeric 

 Spezielle Zeichen: Weitere Zeichen
Es gibt - Überraschung! - noch mehr Sonderzeichen, die du verwenden kannst
und die eine RegEx schön abkürzen können. Diese bestehen immer aus einem 
Backslash gefolgt von einem weiteren Zeichen (Buchstaben). Übrigens steht
ein großer Buchstabe dabei immer für das Gegenteil eines kleinen. 

\w  \W 

Ein Wort-Zeichen (kleines w) steht genau für [a-zA-Z0-9] und ein 
Nichtwortzeichen (großes W) steht genau für alles andere, also [^a-zA-Z0-9]. 

\d  \D 

Ein Digit, also eine Ziffer von 0-9. Entspricht damit [0-9] und in der Großschreibung [^0-9]. 

Alter Quelltext:

Private Function CheckPrefix(sPrefix As String) As String
  Dim sSubject, sPattern As String

' sZeichenvorratPrefix = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz./"
  
  sSubject = sPrefix
  'sPattern = "(?=^.{8,}$)(?=.*\\d)(?=.*\\W+)(?![.\n])(?=.*[A-Z])(?=.*[a-z]).*$"
  ' ^.*(?=.{8,})(?=.*[a-z])(?=.*[\d])(?=.*[[A-Z]|[@!#$%]).*$
  'sPattern = "(?=^.{8,}$)(?=.*[A-Z])(?=.*[a-z])(?=.*\\d)(?=.*[+#_@!?§$%]).*$"
  
  sPattern = "^([a-zA-Z0-9./]{8})$" '    "^.*(?=.{8,})(?=.*[a-z])(?=.*[\\d])(?=.*[[A-Z]|[@!#$%]).*$"
  
  If Match(sSubject, sPattern) = True Then
     Print "O.K."
     Return sPrefix
  Else 
     Print "Prefix-Fehler"
     Message.Error("Der eingegebene Prefix enthält unzulässige Zeichen!")
     txtPrefixEingabe.SetFocus
     Return
  Endif ' Match(sSubject, sPattern) = True ? 
  
End ' CheckPrefix(..)

-----------------------------------------------

Private Function CheckStrongPassword(sPasswort As String) As Boolean
  Dim sSubject, sPattern As String
  
  ' If Len(sPasswort) = 0 Then
  '    Message.Error("Geben Sie ein Passwort ein!")
  '    txtPasswortEingabe.SetFocus
  '    Return
  ' Endif
  ' 
  ' If InStr(sPasswort, Chr(32)) <> 0 Then
  '    Message.Error("Das Passwort darf\nkein\nLeerzeichen enthalten!")
  '    txtPasswortEingabe.SetFocus
  '    Return
  ' Endif
  
  sSubject = sPasswort
  'sPattern = "(?=^.{8,}$)(?=.*\\d)(?=.*\\W+)(?![.\n])(?=.*[A-Z])(?=.*[a-z]).*$"
  ' ^.*(?=.{8,})(?=.*[a-z])(?=.*[\d])(?=.*[[A-Z]|[@!#$%]).*$
  sPattern = "(?=^.{8,}$)(?=.*[A-Z])(?=.*[a-z])(?=.*\\d)(?=.*[+#_@!?§$%]).*$"
  
  'sPattern = "^([a-zA-Z0-9./]{8})$" '    "^.*(?=.{8,})(?=.*[a-z])(?=.*[\\d])(?=.*[[A-Z]|[@!#$%]).*$"
  
  If Match(sSubject, sPattern) = True Then
     Print "O.K."
     Return True
  Else 
     Print "PWFehler"
     Return False
  Endif ' Match(sSubject, sPattern) = True ? 
  
End ' CheckStrongPasswort(..)

