Visual Basic

private sub SetCost()
'Finding out how much they will be payig just for the room - with no extras.        
If radstandard.Checked = True Then 
        costofroom.Text = standardrate
        costofroom.Text = Format(standardrate, "currency") 
ElseIf raddeluxe.Checked = True Then    
        costofroom.Text = deluxerate       
        costofroom.Text = Format(deluxerate, "currency")   
ElseIf radsuite.Checked = True Then         
        costofroom.Text = suiterate       
        costofroom.Text = Format(suiterate, "currency")   
End If
end sub

    Private Sub btncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalculate.Click
        'Finding out how much they will be payig just for the room - with no extras.
        CalculateBaseCostOfRoom()
 
        'Figuring out how many days that they want the room.
        numberofdays.Text = CalculateDays(dtparrival.Value, dtpcheckout.Value)
 
        'Finding out the cost if they need an additional bed.
        Dim newcharge As Double = rollawaybed * Val(numberofdays.Text)
        If chkbed.Checked = True Then
            rollawaybedcharge.Text = Format(newcharge, "currency")
        Else
            rollawaybedcharge.Text = Format(0, "currency")
        End If
 
        'Finding out how much it is going to cost for more than 2 people in the room.
        additionalguestcharge.Text = Format(additionalguest, "currency")
 
        'Calculating just how much the room is going to cost with the number of Days staying there.
        subtotal.Text = Format(((numberofdays.Text) * (costofroom.Text)), "currency")
 
        'Calculating the total for the room with everything
        total = CInt(CInt(subtotal.Text) + CInt(additionalguestcharge.Text) + CInt(rollawaybedcharge.Text))
        txttotal.Text = Format(total, "C")
    End Sub


    ' I know this is the long way to write these, but it's easier to follow for beginners...
 
    'This Sub doesn't take any parameters and doesn't return any value to the caller.
    Private Sub CalculateBaseCostOfRoom()
        If radstandard.Checked = True Then
            costofroom.Text = Format(standardrate, "currency")
        ElseIf raddeluxe.Checked = True Then
            costofroom.Text = Format(deluxerate, "currency")
        ElseIf radsuite.Checked = True Then
            costofroom.Text = Format(suiterate, "currency")
        End If
    End Sub

    'This Function takes two DateTime objects as parameters.  These will come from the Value properties
    'of your DateTimePicker controls, dtpArrival and dtpCheckout.  This Function will return a Long type
    'value representing the number of nights these dates span.
    Private Function CalculateDays(ByVal startDate As DateTime, ByVal endDate As DateTime) As Long
	Dim numDays As Long
 
        numDays = DateDiff(DateInterval.Day, startDate, endDate) + 1
        Return numDays
    End Function

    'This Function doesn't take any parameters, but will return a Double type value representing the
    'additional cost of the room.
    Private Function CalculateAdditionalGuests() As Double
	Dim additionalguest As Double
 
        If Val(nudguest.Text) > 2 Then
            additionalguest = ((Val(nudguest.Text) - 2) * 10) * Val(numberofdays.Text)
        Else
            additionalguest = 0
        End If
 
        Return additionalguest
    End Function

If radstandard.Checked = True Then
    costofroom.Text = standardrate
    costofroom.Text = Format(standardrate, "currency")
ElseIf raddeluxe.Checked = True Then
    costofroom.Text = deluxerate
    costofroom.Text = Format(deluxerate, "currency")
ElseIf radsuite.Checked = True Then
    costofroom.Text = suiterate
    costofroom.Text = Format(suiterate, "currency")
End If

If radstandard.Checked = True Then
    costofroom.Text = Format(standardrate, "currency")
ElseIf raddeluxe.Checked = True Then
    costofroom.Text = Format(deluxerate, "currency")
ElseIf radsuite.Checked = True Then
    costofroom.Text = Format(suiterate, "currency")
End If

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