QTP: Working with SiebCalculator

Set oCalc = SiebApplication( "uiname:=MyApp" ).SiebScreen( "uiname:=MyScreen" )_
            .SiebView( "uiname:=MyView" ).SiebApplet( "uiname:=MyApplet" )_
            .SiebCalculator( "uiname:=MyCalculator" )
 
SiebCalculatorClickKeys oCalc, Array( "1", "+", "2", "-", "3", "*", "99" )

' Purpose: Checks if array of keys to be input to Calculator is valid
'
' Args:
'    arrKeys
'
' Return:
'    Boolean

Private Function IsKeyLoaded( arrKeys )
    Dim arrFixedKeys
    Dim blnExists
    Dim inKey, fixKey
 
    arrFixedKeys = Array( 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, "/", "CE", "*", "C", "-", "%", &_
                     "±", ".", "+", "=" )
 
    For Each inKey in arrKeys
        blnExists = False
        For Each fixKey in arrFixedKeys
            If Trim(LCase(CStr(inKey))) = Trim(LCase(CStr(fixKey))) Then
                blnExists = True
                Exit For
            End If
        Next
        If Not blnExists Then
            IsKeyLoaded = blnExists
            Exit Function
        End If
    Next
 
    IsKeyLoaded = blnExists
 
End Function
 
 
' Args:
'    oCalculator - object reference to the Calculator hierarchy
'    arrKeys - Keys to be pressed on the calculator object
'
' Output: 
'    Integer
'
' Dependancy:
'    IsKeyLoaded

Public Sub SiebCalculatorClickKeys( ByVal oCalculator, ByVal arrKeys )
    Dim i
 
    ' Check if the keys entered by the user are valid and exist as keys on the 
    '_ SiebCalculator object.
    isValid = IsKeyLoaded(arrKeys)
 
    ' The following component can be modified to also work with 'ClickKeys':
    '_ enter an array with multiple values in each element and use clickKeys if the length
    '_ is greater than 1, unless if it is the key "CE"
    If Not isValid Then
        Reporter.ReportEvent micWarning, "Invalid Key(s)", "Array: " & Join(arrKeys, ",")
    Else
        'object.OpenPopup
        For i = LBound(arrKeys) to UBound(arrKeys)
            oCalc.ClickKey arrKeys(i)
        Next
        'object.ClosePopup
    End If
 
End Sub