Public Function nurZahlen(Argument)
Dim i
    For i = 1 To Len(Argument)
     If Not InStr(1, "1234567890", Mid(Argument, i, 1)) = 0 Then
      nurZahlen = nurZahlen & Mid(Argument, i, 1)
         End If
    Next i
End Function

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

• Passwort Generator
• Backup-Lösung für tägliche Sicherung
• Runden von Uhrzeiten
• Anzahl der Tage im Monat
• Arbeiten mit INI-Dateien