URLDownloadToFile

Sub URLDOWN()
Const strUrl As String = "http://www.xxxxxxxxxx.yyy.  _
_
txt"
Dim strSavePath As String
Dim returnValue As Long
strSavePath = ThisWorkbook.Path & "\" & "xxxx.txt"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
If returnValue = 0 Then
MsgBox "xxxx downloaded OK!"
Else
MsgBox "Tray again or exit"
End If
End Sub

Sometime my connection is to slow so I need 10 or more minutes...or page is down...and because of that I want to insert macro------OnTime like 15 sec Exit Sub...
So on 15 sec exit sub..
And now if i have problems I must use Task Manager to end Excel proc. because Esc , Ctrl-c Ctrl-Break do not function.
Many thanx