Con ASP yo utilizo la siguiente funcion Con VBScript, espero la puedas implementar en VB
<%
numero=12345.5678
counter=1
Cierto=False
Do Until Cierto=TRUE
NumeroEntero=Left(numero,counter)
counter=counter+1
If Instr(NumeroEntero,".") Then
Cierto=True
End IF
Loop
Largo=Len(NumeroEntero)
NumeroEntero=Left(NumeroEntero,Largo-1)
Response.Write NumeroEntero
%>
Probada y funcionando, lo que no se es si se puede implementar en VB
saludos