If IsNumeric(Var) Then
   Var = CLng(Var)
End If