Attribute VB_Name = "FxVolGetterTest"
Option Explicit
Option Base 0


Sub Test()
    
    Dim volGetter As FxVolGetter
    Dim ticker(2) As String
    Dim vSurf As Variant
    Dim reset As Variant
    Dim i As Integer
    
    Set volGetter = New FxVolGetter
    
    ticker(0) = "EURUSD BGN Curncy"
    ticker(1) = "XAUUSD BGN Curncy"
    ticker(2) = "EURCHF BGN Curncy"
    
    For i = 0 To UBound(ticker)
    
        '' I need to reset the result container
        '' before I write to it
        vSurf = reset
        vSurf = volGetter.sendRequest(ticker(i))
        
        '' here you can play further with the
        '' contents of the "res" variable
        '' ...
    
    Next i

End Sub