Private Function Date4(ByVal S As String) As String
Dim Parts() As String
Dim I As Integer
Dim Tmp As String
Tmp = ""
Parts = Split(S, Chr(32))
For I = 0 To UBound(Parts)
   If CountStr(Parts(I), "-") = 2 Then
      If Val(Left(Parts(I), 2)) > 80 Then Parts(I) = "19" & Parts(I) Else _
        Parts(I) = "20" & Parts(I)
     End If
   Tmp = Tmp & Parts(I) & Chr(32)
   Next I
Date4 = Mid(Tmp, 1, Len(Tmp) - 1)
End Function
 
Private Function CountStr(ByVal S1 As String, ByVal S2 As String) As Integer
Dim Tmp As Integer
Dim Pos As Integer
Pos = 0
Tmp = 0
Do While InStr(Pos + 1, S1, S2) > 0
  Tmp = Tmp + 1
  Pos = InStr(Pos + 1, S1, S2)
 Loop
CountStr = Tmp
End Function

NeuerName = Date4(AlterName)