日付けから曜日を取得するにはWeekdayName関数とWeekday関数を用います。

以下のサンプルではインプットボックスで日付けを入力し、入力値をWeekday関数で
評価した結果を”〜曜日”の文字列として表示します。

Sub GetWeekDayName()

    Dim MyDate As Date

    MyDate = Application.InputBox("日付けを入力してください", "曜日", _
                                        Format(Now, "yyyy/mm/dd"), Type:=2)

    If IsDate(MyDate) Then
        MsgBox WeekdayName(Weekday(MyDate))
    End If

End Sub

※エクセル97ではWeekdayName関数は用意されていません。Weekday関数の戻り値を
　利用して分岐処理を行う必要があります。

Weekday関数の戻り値は・・・

vbSunday	1
vbMonday	2
vbTuesday	3
vbWednesday	4
vbThursday	5
vbFriday	6
vbSaturday	7

です。エクセル2000でも特に曜日名を文字列表示する必要がなければ、Weekday関数による
評価のみ行えばいいでしょう。