If NumSingleRoom > 0 Then
SingleRoom = NumSingleRoom & " Single Room"
lstRoomsBooked.AddItem (SingleRoom)
lstCostOfRoom.AddItem (SingleRoomCost)
Else
SingleRoom = " "
End If
 
If NumDoubleRoom > 0 Then
DoubleRoom = NumDoubleRoom & " Double Room"
lstRoomsBooked.AddItem (DoubleRoom)
lstCostOfRoom.AddItem (DoubleRoomCost)
Else
DoubleRoom = " "
End If
 
 
If NumFamilySuite > 0 Then
FamilySuite = NumFamilySuite & " Family Suite"
lstRoomsBooked.AddItem (FamilySuite)
lstCostOfRoom.AddItem (FamilySuiteCost)
Else
FamilySuite = " "
End If
 
 
 
 
FinalCost = ((SingleRoomCost * NumSingleRoom) + (DoubleRoomCost * NumDoubleRoom) + (FamilySuiteCost * NumFamilySuite)) * NumberOfNights
 
 
 
If NumRooms > 2 Or NumberOfNights > 6 Then
OverAllCost = FinalCost * 0.9
txtFinalCost.Text = "£" & OverAllCost
Else
txtFinalCost.Text = "£" & FinalCost
 
 
 
End If
End Sub