Or maybe you could use a wshshell popup to timeout a message box which only brings up the inputbox if no is clicked but times out otherwise leaving the 44.
Sub GetWeekno()
'Need to set reference to Windows Script Host Object Model
Dim SH As IWshRuntimeLibrary.WshShell
Dim WkNo As Integer
Dim BtnRepsonse
Set SH = New IWshRuntimeLibrary.WshShell
WkNo = 44
BtnResponse = SH.Popup("Stick With Week " & WkNo, 4, "", 4 + 32)
If BtnResponse = 7 Then WkNo = InputBox("Please Enter Week No. ", "Enter Week No. ")
MsgBox WkNo
End Sub