Extracting and Calculating using VB

[rkrox907]

The macro that i build take a value from 'position #1' and pasting the same value in 'position #2'

How can i have imacro take the value from 'position #1' then performing some calculation using this VB code

Code: Select all

 Function TSPrice(Cost As String) As Integer
    Dim vCost As Double
    Dim vCostRoundUp As Double
    Dim vCostAdded As Double
    If IsNumeric(Cost) Then
        vCost = val(Cost)
        vCostRoundUp = Round_Up(vCost)
        If vCostRoundUp > 1000 Then
            vCostAdded = vCostRoundUp + (vCostRoundUp * 0.12) + 20
        Else
            vCostAdded = vCostRoundUp + (vCostRoundUp * 0.14) + 10
        End If
        TSPrice = Round_Down(vCostAdded)
    Else
        MsgBox ("Cost Must Be Numeric")
    End If
End Function

Function Round_Up(ByVal d As Double) As Integer
    Dim result As Integer
    result = Math.Round(d)
    If result >= d Then
        Round_Up = result
    Else
        Round_Up = result + 1
    End If
End Function


Function Round_Down(ByVal d As Double) As Integer
    Dim result As Integer
    result = Math.Round(d)
    If result >= d Then
        Round_Down = result - 1
    Else
        Round_Down = result
    End If

then pasting the new value (that just came from VB)into 'position #2'

Any help will be appreciated

i'm using iMacros for Firefox 9.0.3
Windows 10 PRO
Firefox 52.0.1 (32-bit)