How to Full Format Date in Visual Basic

This function shows how to full format date in Visual Basic 6.

Here's how to call the function: MsgBox FullFormatDate("02/24/1978")
The result will be: Friday, 24th Mar 1978

Public Function FullFormatDate(ByVal strDate As String) As String
    Dim strDay As String

    strDay = Format(strDate, "DD")
    Select Case strDay
        Case 1, 21, 31
            strDay = Format(strDay, "#0") & "st"
        Case 2, 22
            strDay = Format(strDay, "#0") & "nd"
        Case 3, 23
            strDay = Format(strDay, "#0") & "rd"
        Case Else
            strDay = Format(strDay, "#0") & "th"
    End Select

    FullFormatDate = Format(strDate, "DDDD, ") & strDay & _
                     Format(strDate, " MMM YYYY")
End Function