Public Enum EREGIONALSET
    Format1 = 0         ' Belgium, Brazil, Italy, LatinAmerica, Spain, 
    ' UnitedKingdom
    Format2 = 1         ' CanadianFrench, Czechoslovakia, Hungary, Poland, 
    ' Sweden, Yugoslavia
    Format3 = 2         ' Finland, France, Germany, Norway, Switzerland
    Format4 = 3         ' Denmark, InternationalEnglish, Netherlands, Portugal
    Format5 = 4         ' UnitedStates
End Enum
 
Public Function CreateDate(ByVal Year As Variant, _
                           ByVal Month As Variant, _
                           ByVal Day As Variant, _
                           Optional ByVal Language As EREGIONALSET = Format3) _
                           As String
    If Year = 0 Then
        Year = VBA.Year(VBA.Date)
    End If
    If Month = 0 Then
        Month = VBA.Month(VBA.Date)
    End If
    If Day = 0 Then
        Day = VBA.Day(VBA.Date)
    End If
 
    If Len(Year) > 4 Then
        MsgBox "Ein Jahr mit mehr als vier Stellen existiert nicht"
    End If
    If Len(Month) > 2 Then
        MsgBox "Ein Monat mit mehr als zwei Stellen existiert nicht"
    ElseIf Month > 12 Then
        MsgBox "Es gibt keinen Monat " & Month
    End If
    If Len(Day) > 2 Then
        MsgBox "Ein Tag mit mehr als zwei Stellen existiert nicht"
    ElseIf Day > 31 Then
        MsgBox "Es gibt keinen Tag " & Day
    End If
 
    Dim strYear As String
    Dim strMonth As String
    Dim strDay As String
 
    If Len(Year) <= 2 Then
        Year = Year + 2000
    End If
    strYear = Format$(Year, "0000")
    strMonth = Format$(Month, "00")
    strDay = Format$(Day, "00")
 
    Select Case Language
    Case Format1
        CreateDate = strDay & "/" & strMonth & "/" & strYear
 
    Case Format2
        CreateDate = strYear & "-" & strMonth & "-" & strDay
 
    Case Format3
        CreateDate = strDay & "." & strMonth & "." & strYear
 
    Case Format4
        CreateDate = strDay & "-" & strMonth & "-" & strYear
 
    Case Format5
        CreateDate = strMonth & "-" & strDay & "-" & strYear
 
    End Select
 
End Function

Ohne Mampf, kein Kampf !