Dim i As Integer
        Dim YesNumeric As Boolean
        Dim NumCounter As Integer
        Dim YesDate As Boolean
        Dim NumFilter As String
        Dim value As String = "1Hallo121"
 
        If IsDate(value) Then
            YesDate = True
        Else
            For i = 1 To Len(value)
                If IsNumeric(Mid(value, i, 1)) Then
                    YesNumeric = True
                    NumCounter = NumCounter + 1
                    NumFilter = NumFilter & Mid(value, i, 1)
                End If
            Next
        End If
        MsgBox("Datum?: " & YesDate)
        MsgBox("Sind Zahlen drin?: " & YesNumeric)
        MsgBox("Wei viele Zahlen? " & NumCounter)
        MsgBox("Gib Mir alle zahlen: " & NumFilter)