Well there are numerous ways:
Here is one
Sub SplitDecimal(ByVal number As Decimal, ByRef wholePart As Decimal, _
ByRef fractionalPart As Decimal)
wholePart = Math.Truncate(number)
fractionalPart = number - wholePart
End Sub
=OR=
string sample = "235.14587";
string[] output = sample.Split(".".ToCharArray());
int before = output[0].Length;
int after = output[1].Length;
Good luck,
OI