>>465
Function内で暗黙的な型変換が行われてると思うな

Option Strict On
Option Explicit On

追加してみよう