Sub test()
   Dim GivenDate As String
   Dim VBDate As Date
 
   GivenDate = convMonth("24MAR11")
   VBDate = CDate(Format(GivenDate, "@@ @@@ @@"))
'   VBDate = DateValue(Format(GivenDate, "@@ @@@ @@")) ' Funktioniert auch nicht
   Stop
End Sub
 
Function convMonth(datum As String) As String
    datum = Replace(datum, "MAR", "MRZ")
    datum = Replace(datum, "MAY", "MAI")
    datum = Replace(datum, "OCT", "OKT")
    convMonth = Replace(datum, "DEC", "DEZ")
End Function