I have a project to do in Visual Basic. 
My problem is that the outcome is always wrong (ex. instead of 2011 it gives 2000). And i cannot set as Desired unit the Inch(1) or feet(3), it gives the Infinity error. And if i put as Original and Desired unit the inch(1), the outcome is "Not a Number".

Here's the code i made so far. The project is about arrays. Any help appreciated.

> 
> Public Class Form1
> 
> 
> 
> ```
> Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
> 
>     Dim original(9) As Long
>     Dim desired(9) As Long
>     Dim a As Integer
>     Dim o As Integer
>     Dim d As Integer
>     Dim inch As Long, fathom As Long, furlong As Long, kilometer As Long
>     Dim meter As Long, miles As Long, rod As Long, yard As Long, feet As Long
> 
>     a = Val(Input3.Text)
>     o = Val(Input1.Text)
>     d = Val(Input2.Text)
> 
>     inch& = 0.0833
>     rod& = 16.5
>     yard& = 3
>     furlong& = 660
>     meter& = 3.28155
>     kilometer& = 3281.5
>     fathom& = 6
>     miles& = 5280
> 
>     original(1) = inch
>     original(2) = fathom
>     original(3) = feet
>     original(4) = furlong
>     original(5) = kilometer
>     original(6) = meter
>     original(7) = miles
>     original(8) = rod
>     original(9) = yard
> 
>     desired(1) = inch
>     desired(2) = fathom
>     desired(3) = feet
>     desired(4) = furlong
>     desired(5) = kilometer
>     desired(6) = meter
>     desired(7) = miles
>     desired(8) = rod
>     desired(9) = yard
> 
>     If o < 1 Or o > 9 Or d < 1 Or d > 9 Then
>         MessageBox.Show("Units must range from 1-9.", "Error", _
>         MessageBoxButtons.OK, _
>         MessageBoxIcon.Information)
>         Return
>     End If
> 
>     Output.Text = (a * original(o)) / desired(d)
> 
> End Sub
> 
> ```
> 
> End Class
> 
> 
>