Dim inv As Globalization.CultureInfo = _
  Globalization.CultureInfo.InvariantCulture
 
Dim dec As Decimal = 12.34D
 
Dim decstr As String = dec.ToString(inv)
 
Dim parts1() As String = decstr.Split(","c)
 
Dim parts2() As String = decstr.Split(CChar( _
  inv.NumberFormat.CurrencyDecimalSeparator))