Private Sub GetEuroAndCent(ByVal vl As Decimal, _
                           ByRef Sign As String, _
                           ByRef Euro As String, ByRef EuroCent As String)
 
        Dim ci As Globalization.CultureInfo = _
                         Globalization.CultureInfo.CurrentCulture
        Dim nf As Globalization.NumberFormatInfo = ci.NumberFormat
 
        Dim vz As Integer = Math.Sign(vl)
        vl = Math.Abs(vl)
        Dim str As String = vl.ToString("C2", ci)
        Dim parts() As String = str.Split(CChar(nf.CurrencyDecimalSeparator))
 
        Sign = nf.NegativeSign
        If vz >= 0 Then Sign = nf.PositiveSign
        Euro = parts(0)
        EuroCent = parts(1).Trim(CChar(nf.CurrencySymbol), " "c)
End Sub