Cita: If e.KeyCode = Keys.Enter Then
Try
Dim cambio As Double
If CDbl(txtRecibido.Text) >= CDbl(lblSubTotal.Text) Then
cambio = CDbl(txtRecibido.Text) - CDbl(lblSubTotal.Text)
lblCambios.Text = "$" & Format(cambio, "0.00")
lblNota.ResetText()
Else
lblNota.Text = "El efectivo ingresado es menor al monto a pagar."
lblCambios.Text = "0.00"
txtRecibido.Focus()
End If
Catch
MsgBox("Existe un error en el monto recibido. Verifique")
End Try
End If
txtRecibido.Focus()
No deberías permitir ingresar el símbolo "$" en tu caja de texto. Recuerda que estás trabajando con datos numéricos y antes de compararlos como números debes realizar la conversión, de otra forma estarás comparando cadenas.
Saludos.