Visual Basic

Open "source.txt" For Append As #1<br />
Open "target.txt" For Input As #2<br />
<br />
x = 1<br />
Do While Not EOF(1)<br />
Input #1, UserName, UserID<br />
If Not UserName = NewUser.User.Selected(nIndex) Then 'Is this kinda what you meant in step 4? NewUser is form name, User is list box name.<br />
Print #2, UserName, UserID<br />
End If<br />
x = x + 1<br />
Loop<br />
Close #1<br />
Close #2

Open "source.txt" For Append As #1
Open "target.txt" For Input As #2

x = 1
Do While Not EOF(1)
    Input #1, UserName, UserID
    If Not UserName = NewUser.User.Selected(nIndex) Then
        Print #2, UserName, UserID
    End If
    x = x + 1
Loop
Close #1
Close #2

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 UserName = NewUser.User.Selected(nIndex) Then
        Print #2, UserName, UserID
    End If
Loop
Close ' Close with no parameters will close ALL open files you opened with Open.

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 UserName = NewUser.User.Selected(nIndex) Then
        Print #2, UserName, UserID
    End If
Loop
Close ' Close with no parameters will close ALL open files you opened with Open.

If UserName <> SelectedUserName Then
    Print #2, UserName, UserID
End If

<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