Dim dblDistance as Double