Visual Basic

<br />
Open "source.txt" For Input As #1<br />
Open "target.txt" For Output As #2<br />
Do While Not EOF(1)<br />
    Input #1, UserName, UserID<br />
<br />
    If Not NewUser.User.List(User.ListIndex) = UserName Then<br />
        Write #2, UserName, UserID<br />
    End If<br />
Loop<br />
Close<br />
<br />
Kill "source.txt"<br />
Name "target.txt" As "address.add"

Dim i As Integer
 
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
 
    For i = 0 to NewUser.User.List.Count - 1   ' Or whatever your tracking them in
        If NewUser.User.List(i) = UserName Then
            Exit For                ' If the a match is found, skip to the next line in the file
        End If
        Write #2, UserName, UserID  ' This statement will only execute if the selected list 
                                    ' does NOT match the current line in the file
    Next
Loop
Close

Dim i As Integer
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
    For i = 0 To NewUser.User.ListCount - 1
    If NewUser.User.List(Recipients.ListIndex) = UserName Then
        Exit For
    End If
    Write #2, UserName, UserID
    Next
Loop
Close

Dim i As Integer
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
    For i = 0 To NewUser.User.ListCount - 1
        If NewUser.User.List(Recipients.ListIndex) = UserName Then
            Exit For
        End If
        Write #2, UserName, UserID
    Next
Loop
Close

Dim i As Integer
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
    For i = 0 To ListBox.SelectedItems.Count - 1
        If ListBox.SelectedItems(i) = UserName Then
            Exit For
        End If
        Write #2, UserName, UserID
    Next
Loop
Close

Dim i As Integer
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
    If Not NewUser.User.List.SelectedItems.Contains(UserName) Then
	Write #2, UserName, UserID
    End If
Loop
Close

Dim i As Integer
Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
    Input #1, UserName, UserID
    If Not User.SelectedItems.Contains(UserName) Then
	Write #2, UserName, UserID
    End If
Loop
Close

Open "source.txt" For Input As #1
Open "target.txt" For Output As #2
Do While Not EOF(1)
For n = 0 To (User.ListCount - 1)
    Input #1, UserName, UserID
    If Not User.Selected(n) = True Then
        Write #2, UserName, UserID
    End If
Next
Loop
Close

Private additionalguest As Double = ((nudguest.text - 2) * 10) * Val(numberofdays.text))

Public Class myClass<br />
<br />
Private additionalguest as double<br />
<br />
'..other class declarations, methods etc<br />
<br />
Private Sub CalcCharges<br />
    additionalguest = ((nudguest.text - 2) * 10) * Val(numberofdays.text)<br />
<br />
    if nudguest.text > 2 then additionalguestcharge.text = additionalguest<br />
End Sub

Dim additionalhuest as Double = ((nudguest.text - 2) * 10) * Val(numberofdays.text)

Private Sub Calculate_Click(...)
    Some more code shows up here...
    and some more...
End Sub

<br />
        Dim d1 As DateTime = DateTime.Now<br />
        Dim d2 As DateTime = d1.AddMonths(2)<br />
<br />
        Dim ts As System.TimeSpan = d2.Subtract(d1)<br />
        Dim sDays As String = ts.Days.ToString()<br />