gracias a todos por responder,soy nuevo en el foro asi que se me olvido especificar mas la pregunta, era en vb.
ya lo solicione era solo usar la opcion fix que me tira el valor entero de un numero decimal sin redondear, a ese dato le resto el numero original y lo guardo en otra variable, asi ya tengo la parte decimal y entera en dos variables diferentes, algo asi:
num = ListView1.Items(con).SubItems(2).Text
entero = Fix(ListView1.Items(con).SubItems(2).Text)
decimal = lleg - ent
eso de la funcion split no he aprendido a usarla