Get Exchange Rate through SDK

Dear All,
   Today , We will see, How to Get Exchange Rate through SDK

  Public Sub SetExchangeRate(ByVal strSourceCurr As String, ByVal oDate As Date, ByVal dblValue As Double)
        Dim vObj As SAPbobsCOM.SBObob
        oApp = New ClsSAPConn
        vObj = oApp.SAPCompany.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
        Try
            vObj.SetCurrencyRate(strSourceCurr, oDate, dblValue, True)
        Catch ex As Exception

        Finally
            If vObj IsNot Nothing Then
                vObj = Nothing
            End If
        End Try

    End Sub