Oye no seria mas sencillo utilizar esa funcion? incluso puedes definir cual quieres que sea el dia de inicio de la semana...
anexo ejemplo
(el formulario solo tiene un textbox (text1) y un boton (Command1) )
anexo codigo...espero te sirva...
Private Sub Command1_Click()
Dim MyDate As Date
Dim MyDay
MyDate = Text1.Text
MyDay = Weekday(MyDate, vbMonday)
MsgBox MyDay
End Sub