Dim txt As String
Dim cant As Double
txt = Nz(Me.Texto)
cant = Nz(Me.Cantidad)
Me.Resultado = txt & " " & Format(CDec(cant), "$0.00")
If cant = "0" Then Me.Resultado = txt
End Sub
Dim txt As String
Dim cant As Double
txt = Me.Texto
cant = Me.Cantidad
Me.Resultado = txt & " " & Format(CDec(cant), "$0.00")