Label not definied

when I start program I get error "Label not definied" in GoTo Resend line

Code:

---

module:
 Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
(ByVal dwOption As Long, ByRef pBuffer As Any, _
ByVal dwBufferLength As Long, ByVal dwReserved As Long)

Public Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_OPTION_PROXY = 38

Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer


form:
Private Sub Command6_Click()
Dim ipi As INTERNET_PROXY_INFO
ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY
ipi.lpszProxy = "46.37.165.113:17890"
ipi.lpszProxyBypass = ""

gstrProxyUserName = "ggggg"
gstrProxyPassword = "hhhhhh"

iRetVal = InternetSetOption(hHttpOpenRequest, INTERNET_OPTION_PROXY_USERNAME, gstrProxyUserName, Len(gstrProxyUserName))
iRetVal = InternetSetOption(hHttpOpenRequest, INTERNET_OPTION_PROXY_PASSWORD, gstrProxyPassword, Len(gstrProxyPassword))
GoTo Resend <<-- error

Form1.WebBrowser1.Navigate "http://whatismyipaddress.com/"

---

how to define GoTo Resend line ?


End Sub

Code:

---

GoTo Resend

..... other code

Resend:  ' <<< this is the missing label

---

labels must exist in same routine in which they are called