Dim strTest As String
Dim switch As Boolean
Dim datum As String
 
Private Sub Command1_Click()
  MsgBox strTest, vbOKOnly, "Vorher"
  Do
    i = i + 1
    If i > Len(strTest) Then Exit Do
    zasc = Asc(Mid(strTest, i, 1))
    If zasc > 47 And zasc < 58 And start = 0 Then
        start = i
    End If
    If start > 0 Then
      If zasc = 32 Then
        If i + 3 <= Len(strTest) Then
          If Mid(strTest, i, 2) = " -" Or Mid(strTest, i, 2) = " /" Then
            If Asc(Mid(strTest, i + 3, 1)) > 47 And Asc(Mid(strTest, i + 3, 1)) _
              < 58 Then
              i = i + 3
              switch = True
            Else
              ende = i - 1
            End If
          End If
          If i + 1 <= Len(strTest) Then
            If Asc(Mid(strTest, i + 1, 1)) > 47 And Asc(Mid(strTest, i + 1, 1)) _
              < 58 And Asc(Mid(strTest, i - 2, 1)) > 47 And Asc(Mid(strTest, i _
              - 2, 1)) < 58 Then
              ende = 0
              switch = True
            End If
            If Asc(Mid(strTest, i + 1, 1)) > 47 And Asc(Mid(strTest, i + 1, 1)) _
              < 58 And Asc(Mid(strTest, i - 1, 1)) > 47 And Asc(Mid(strTest, i _
              - 1, 1)) < 58 Then
              ende = i
            End If
          Else
            ende = Len(strTest)
          End If
        Else
          ende = i - 1
        End If
        If switch = False Then
          ende = i - 1
        Else
          switch = False
        End If
      End If
      If zasc = 45 Then
        If Mid(strTest, i + 1, 1) <> " " Then
          If Asc(Mid(strTest, i + 1, 1)) > 47 And Asc(Mid(strTest, i + 1, 1)) < _
            58 Then
          Else
            ende = i - 1
          End If
        End If
      End If
      If zasc > 47 And zasc < 58 Then
        If i = Len(strTest) Then
          ende = i
        Else
          ende = 0
        End If
      End If
      If ende > 0 Then
        datum = Mid(strTest, start, ende - start + 1)
        Print datum
        strTest = Mid(strTest, 1, start - 1) & Mid(strTest, ende + 1)
        i = i - start - 1
        start = 0
        ende = 0
      End If
    End If
  Loop
  MsgBox strTest, vbOKOnly, "Nachher"
End Sub
 
Private Sub Form_Load()
  strTest = "Teststring 1998 - 2000 test 1997 - 2001 test11 2000- 2001 23-test" & _
    "test 8/99 test 08 / 01 test 04.98 test 3.77 test 2.66- 03/88 test 04 /66-" & _
    "03/96"
End Sub