[Resolvido] Arquivo .INI

Estou tentando ler um arquivo .INI que contem um link, mas naum estou conseguindo. Alguem pode me ajudar

No Modulo BAS fiz isso:

Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Declare Function GetProfileString Lib "Kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer

Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpFileName As String) As Integer
Function GetIni(SECTION, KEY, arq)

Dim Val As String

Dim valor As Integer

Val = String$(255, 0)

valor = GetPrivateProfileString(SECTION, KEY, "", Val, Len(Val), arq)

If worked = 0 Then

GetIni = ""

Else

GetIni = Left(Val, valor)

End If

End Function

e estou chamando assim:

Call MostrarURL(GetIni("[Relatórios]", "Municipio", "TESTE.INI"))

No Arquivo.INI esta assim:

[Relatórios]

Municipio = ("http://intra.al.sp.gov.br/pj/pj_rel.asp?ano=" & strAno)