Bağlantının sonunda slash yoksa slash ekler.

Public Function TrailingSlash(varIn As Variant) As String

    If Len(varIn) > 0& Then

        If Right(varIn, 1&) = "/" Then

            TrailingSlash = varIn

        Else

            TrailingSlash = varIn & "/"

        End If

    End If

End Function