Не думайте, что есть встроенный способ. Но довольно легко скопировать / вставить один из сообщения в блоге :
Protected Function FormatPostedTimeWithDayNumberSuffix(Optional ByVal format As String = "MMMM d{0}, yyyy") As String
Dim dateTime As DateTime = Date.Parse(Entry.PostedTime)
If Not Null.IsNull(dateTime) Then
Dim formatTime As String = dateTime.ToString(format)
Dim day As Integer = dateTime.Day
Dim dayFormat As String = String.Empty
Select Case day
Case 1, 21, 31
dayFormat = "st"
Case 2, 22
dayFormat = "nd"
Case 3, 23
dayFormat = "rd"
Case Else
dayFormat = "th"
End Select
Return String.Format(formatTime, dayFormat)
End If
Return Entry.PostedTime
End Function