Private Sub txtCantidad_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If txtCantidad.Text = Empty Then
lbResultado200.Caption = "0"
Exit Sub
End If
lbResultado200.Caption = Format(CDbl(txtCantidad.Text) * CDbl(lbValor200.Caption), "Standard")
End Sub
...
https://www.youtube.com/watch?v=wFBDQ060od0