CALC005 Cuando se da un clic en una de las monedas de la calculadora

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Sub Main()
    Dim nResultado

    If Not lvwMonedas.SelectedItem Is Nothing Then
       nResultado = lvwMonedas.SelectedItem.Tag * Val2( txtFields(0) )
       txtFields(0) =  nResultado
       txtFields(1) =  Formato( nResultado, Ambiente.Formato )      
    End If

End Sub