ayuda con el cociente de una division

[chaka106]

bueno les comento rapido tengo una division de un numero(monto) el cual siempre sera entero, ese monto siempre lo devo dividir entre 36 ejemplo 10000/36
de esa operacion debo almacenar el cociente el cual seria 277 y el residuo el cual es 28, y asi sucesivamente hasta ke e cociente sea 0 el problema ke tengo es ke al recibir el cociente me da como resultado 278 lo cual es por ke el resultado de 10000/36 es 277.77777777777777777777777777778 y lo redondea a 278 necesito como saber obtener el 277 sin que se redonde ese numero alguien tiene una solucion??? ayuda ya casi lo tengo solamenet es ese detalle les dejo un fragmento del codigo

Dim coci As Integer = 0
Dim resi As Integer = 0
Dim arrlst As New ArrayList
Dim cond As String = ""
Dim aux As String = ""

coci = CType(source1.text, Integer)

While coci > 0
resi = coci Mod 36
coci = coci / 36
'arrlst.Add(resi)
MsgBox("coci " & coci)
MsgBox("resi " & resi)
End While

alguien tiene alguna solucion gracias.