Get the date of saturday in a week from a week number / year

Hi guys,

i get a weeknumber and a year number as input from a user.
I'd like to get the date of the Saturday in that week.

For example, week 11/2015 (last week), the date of the saturday would be 3/14
How do I go about that in vba?
Let's say I have variables
wk = 11
and
yr = 2015

How do I translate that to 03/14/2015 ?

Thanks,

Jasper

Does this help?

Function fnDateFromWeek(iYear As Integer, iWeek As Integer, iWeekDday As Integer)
' get the date from a certain day in a certain week in a certain year
      fnDateFromWeek = _
      DateSerial(iYear, 1, ((iWeek - 1) * 7) + iWeekDday - Weekday(DateSerial(iYear, 1, 1)) + 1)
End Function

Sub JasperD()
Dim x As String
Dim wk As String, yr As String
wk = InputBox("Please Enter the Week")
yr = InputBox("Please Enter the Year")
x = InputBox("Please Enter the Day")
Cells(2, "A") = wk & "/" & yr
Select Case x
    Case Is = "Sunday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 1), "mm/dd/yyyy")
    Case Is = "Monday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 2), "mm/dd/yyyy")
    Case Is = "Tuesday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 3), "mm/dd/yyyy")
    Case Is = "Wednesday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 4), "mm/dd/yyyy")
    Case Is = "Thursday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 5), "mm/dd/yyyy")
    Case Is = "Friday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 6), "mm/dd/yyyy")
    Case Is = "Saturday"
        MsgBox Format(fnDateFromWeek(Right([a2], 4), Left([a2], 2), 7), "mm/dd/yyyy")
End Select
End Sub

Note: uses A2 as helper cell.