Visual Basic

Public Class MyItem
   Public Field1 As String
End Class

Public Class MyList
  Inherits ArrayList

  Public Readolny Property FilteredByField1(FilterFieldVal As String) As MyList
     Get
       Dim mi As MyItem
       Dim rcol As New MyList

       For Each mi In Me
         If mi.Field1 = FilterFieldVal Then rcol.Add(mi)
       Next

       Return rcol
     End Get
  End Property
End Class

Imports System.IO
.
.
.
Dim num1 As Double
Dim sr As StreamReader = File.OpenText("info.txt")
Do While (sr <> -1)
    num1 = Double.Parse(sr.ReadLine())
Loop
Text1.Text = num1.ToString()

An unhandled exception of type 'System.FormatException' occurred in mscorlib.dll

Additional information: Input string was not in a correct format. 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim name, display As String
        Dim total, amount, charges As Double
        Dim num1 As Double
        Dim sr As StreamReader = File.OpenText("info.txt")


        Do While (sr.Peek <> -1)
            num1 = Double.Parse(sr.ReadLine())
        Loop
        Text1.Text = num1.ToString()
        Label2.Text = num1.ToString()

Dim num1 As Double
Dim sr As StreamReader = File.OpenText("D:\test.txt")
num1 = Double.Parse(sr.ReadLine())
TextBox1.Text = num1.ToString()

formatnumber(1234,2)
formatcurrency(1234,0)