Código para pseudo-código


#1

Boa noite, alguém consegue passar esta Macro para pseudo-código?

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox4) = True Then
Me.TextBox4 = Replace(Me.TextBox4, “,”, “”)
Me.TextBox4 = Format(Me.TextBox4, “### €”)
End If
End Sub