if (!IsNumeric(strValue)){
strValue = Format$(Now, "dd-mmm-yyyy")
} else if (strValue == 0){
strValue = Format$(Now, "dd-mmm-yyyy")
} else {
strValue = Format$(DateSerial(Left(strValue, 2), Mid(strValue, 3, 2), Right(strValue, 2)), "dd-mmm-yyyy")
}
Of course i didn't find the C# equivalent but you get the idea of how the code flows now.