Public Function nurZeichen(Argument)
Dim i
    For i = 1 To Len(Argument)
     If Not InStr(1, "abcdefghijklmnopqrstuvwxyzüöä", Mid(Argument, i, 1)) = 0 Then
       nurZeichen = nurZeichen & Mid(Argument, i, 1)
     End If
    Next i
End Function

Dim x As String
x = nurZeichen("Geburtstag: 1963")

• Passwort Generator
• Backup-Lösung für tägliche Sicherung
• Runden von Uhrzeiten
• Arbeiten mit INI-Dateien
• Tierkreiszeichen ermitteln