you complete code seems wrong. It should modify as follows.
Dim d As Double = 13.23
Dim s As String = Convert.ToString(d)
Dim strArray() As String = s.Split("."C)
Dim beforeDecimalPoint As String = strArray(0)
Dim afterDecimalPoint As String = strArray(1)