MeinDatum = "19.01.2006"
    d = Format(CDate(Now), "short date")
    For x = 1 To Len(d)
        c = Mid(d, x, 1)
        If Not IsNumeric(c) Then
            Trennzeichen = c
            Exit For
        End If
    Next x
    MeinDatum = Format(Replace(MeinDatum, ".", Trennzeichen), "short date")
    MsgBox MeinDatum