[자료]UBound

Function UrlEncode(ByVal urlText As String) As String
    Dim i As Long
    Dim ansi() As Byte
    Dim ascii As Integer
    Dim encText As String
    
    ansi = StrConv(urlText, vbFromUnicode)
    encText = ""
    
    For i = 0 To UBound(ansi)
        ascii = ansi(i)
        
        Select Case ascii
            Case 48 To 57, 65 To 90, 97 To 122
                encText = encText & Chr(ascii)
            Case 32
                encText = encText & "+"
            Case Else
                If ascii < 16 Then
                    encText = encText & "%0" & Hex(ascii)'공백처리
                Else
                    encText = encText & "%" & Hex(ascii)'공백처리
                End If
        End Select
    Next i
    
    UrlEncode = encText
End Function

사용법은 UrlEncode(인코드할 대상) 입니다.