勝手にjikanをHHmmだと解釈して

Dim intJikan = CInt(jikan)
Dim intHr = intJikan \ 100
Dim intMin = intJikan mod 100

と書いてみる。