Private Sub Command1_Click()
'Declare Variables
Dim ids(5)
Dim responce As Integer
Dim bookings(5)
Dim inputval(5)
'Call Sub Routines
Call create_arrays(ids(), flightnr, bookings())
    Do
        Call check_id(ids(), pasid, inputval())
        Call book_seat(bookings(), pasid, seatnr, ids())
        Call display_results(flightnr, pasid, seatnr)
        'Ask user if they want to exit
        responce = MsgBox("Do you need to enter another value?", vbYesNo, "Exit?")
    Loop Until responce = vbNo


End Sub


Private Sub create_arrays(ByRef ids(), flightnr, bookings())
'Create arrays/store flight details
ids(0) = "WallaceW48P01"
ids(1) = "LauderH468P02"
ids(2) = "CarnegieA468P3"
ids(3) = "ScottW468P04"
ids(4) = "DeBruisR468P05"
flightnr = "HA468"
bookings(1) = ""
bookings(2) = ""
bookings(3) = ""
bookings(4) = ""
bookings(5) = ""
End Sub


Private Sub check_id(ByRef ids(), pasid, inputval())
'Declare Variables
Dim found As Boolean
Dim counter As Integer
Dim counter2 As Integer
'Get user Input
pasid = InputBox("Enter your user ID")
'Input Validations
  Do
  
     For counter = 0 To 4
        If ids(counter) = pasid Then
        found = True
        MsgBox ("The ID you was accepted")
    
        If Not found Then MsgBox ("The ID you entered was invalid")
        Else
        End If
    Next
  Loop Until found = True
End Sub

Private Sub book_seat(ByRef bookings(), ByVal pasid, ByRef seatnr, ids())
'Declare variables
Dim found As Boolean
'Get input
seatnr = InputBox("Enter your desired seat number Between 1 and 5")
'Input Validation
    Do
        Do
          If seatnr < 1 Or seatnr > 5 Then
            seatnr = InputBox("That was an invalid number, Please enter your desired seat number Between 1 and 5")
          End If
        Loop Until seatnr >= 1 And seatnr <= 5
       If bookings(seatnr) = "" Then
           found = True
           bookings(seatnr) = "taken"
       Else
           MsgBox ("seat number " & seatnr & " was not available")
       End If
    Loop Until found = True
    If Not found Then MsgBox ("Your seat has been booked")
End Sub



Private Sub display_results(ByVal flightnr, pasid, seatnr)
'Declare Variables
Dim pasid2 As String
'string concatenation
pasid2 = Mid$(pasid, 1, Len(pasid) - 6)
'Display Results
txtbox.AddItem "            Booking Confirmation"
txtbox.AddItem "Flight Number :" & flightnr
txtbox.AddItem "ID            :" & pasid
txtbox.AddItem "Name          :" & pasid2
txtbox.AddItem "Seat Number   :" & seatnr
End Sub

Private Sub book_seat(ByRef bookings(), ByVal pasid, ByRef seatnr, ids())
Dim found As Boolean
Dim answer As Integer
  Do
  
  seatnr = InputBox("Enter your desired seat number Between 1 and 5")
  'Input Validation x > 1, x < 5
  Do
       If seatnr < 1 Or seatnr > 5 Then
           seatnr = InputBox("That was an invalid number, Please enter your desired seat number Between 1 and 5")
       End If
   Loop Until seatnr >= 1 And seatnr <= 5
   'Check if seat is available
   Dim seatsBooked As Integer
   seatsBooked = 0

' Loop through each booking and count number times pasid has booked a seat
   For a = 0 To 4
      If bookings(a) = pasid Then
           seatsBooked = seatsBooked + 1
      End If
   Next
' Make sure user hasn't previously booked a seat
   If seatsBooked = 0 Or seatsBooked = 99 Then
        If bookings(seatnr) = "" Then
             found = True
             bookings(seatnr) = pasid
             MsgBox ("Seat " & seatnr & " was booked for: " & pasid)
        Else
             MsgBox ("seat number " & seatnr & " was not available, please enter a number between 1 and 5")
        End If
    Else
'   Ask user if they want to change their booked seat.
         MsgBox ("A seat has already been booked for your UserID: " & pasid)
         answer = MsgBox("Do you want to change your booked seat?", vbYesNo, "Previous booking detected")
            If responce = vbYes Then
                seatsBooked = 98
                Call book_seat(bookings(), pasid, seatnr, ids())
            Else
                End If
    End If
  Loop Until found = True
End Sub

dim username (5)
dim password(5)
dim whichnumber as integer
dim username2(5) as boolean
private sub form1_load()
setusernamesandpasswords()
setusername2asfalse()
end sub
private sub setusername2asfalse()
username2(1) = false
username2(2) = false
username2(3) = false
username2(4) = false
username2(5) = false
end sub
private sub setusernamesandpasswords()
username(1) = "Bob"
Password(1) = "bob" ' could use anything u want
username(2) = "john"
Password(2) = "John"
username(3) = "Jill"
Password(3) = "Jil"
username(4) = "jack"
password(4) = "jack"
username(5) = "Susan"
passowrd(5) = "susan"
end sub
private sub button1_click()
If Textbox1.Text = (Username(1)) then
whichnumber = 1
checkifused()
CheckPassword()
end if
If Textbox1.Text = (Username(2)) then
whichnumber = 2
checkifused()
CheckPassword()
end if
If Textbox1.Text = (Username(3)) then
whichnumber = 3
checkifused()
CheckPassword()
end if
If Textbox1.Text = (Username(4)) then
whichnumber = 4
checkifused()
CheckPassword()
end if
If Textbox1.Text = (Username(5)) then
whichnumber = 5
checkifused()
CheckPassword()
end if
If Textbox1.Text <> (Username(1)) or Textbox1.Text <>(Username(2)) or Textbox1.text <> (Username(3)) or Textbox1.text <> Username(4)) or Textobx1.Text <> Username(5)) then
msgbox ("Invalid username")
end sub
private sub CHeckpassword()
If TextBox2.Text = (Password(Whichnumber)) then
Msgbox("he has a seat")
else
msgbox("Invalid Password")
end sub
private sub Checkifused()
if Username2(Whichnumber)) = True then
msgbox("You already have a seat")
end sub

Do
    'loop though user ID's
    For counter = 0 To 4
        'If ID is in array then...
        If ids(counter) = pasid Then
        found = True
        MsgBox ("The ID you was accepted")
        '***** This line makes no sence... how can found=FALSE ever
        '*****    when 2 line above it is assigned TRUE!!!
        If Not found Then MsgBox ("The ID you entered was invalid")
        Else
        '***** Else what?
        End If
    Next
'**** um... if the user does not enter a valid ID then should found ever be true?
Loop Until found = True

    'notice there is no DO-LOOP
    FOR counter = 0 TO 4
        IF ids(counter) = pasid THEN
             'Ok it is a valid ID...
             found = True
             'No need to check any other ID's
             EXIT FOR
        END IF
    NEXT
    IF found THEN
        MsgBox ("The ID you was accepted")
    ELSE
        MsgBox ("The ID you entered was invalid")
    END IF

Private Function IsValidID(pasid) as Boolean
    FOR counter = 0 TO 4
        IF ids(counter) = pasid THEN
             'Ok it is a valid ID...
             found = True
             'No need to check any other ID's
             EXIT FOR
        END IF
    NEXT
   IsValidID = found
End Function

'Your Do-Loop now becomes
If IsValidID(pasid) Then
       MsgBox ("The ID you was accepted")
Else
        MsgBox ("The ID you entered was invalid")
End If

Private Sub book_seat(ByRef bookings(), ByVal pasid, ByRef seatnr, ids())
'Declare variables
Dim found As Boolean
Dim Counter as Integer
'First of all lets find out if the user has a seat already
For Counter = 1 to 5
   If bookings(Counter)=pasid Then found = true
Next Counter
If Found then
       MesgBox ("You have already booked a seat of this flight!")
   Else
       'Note that we know Found=false to be in this branch...
       seatnr = InputBox("Enter your desired seat number Between 1 and 5")  
       'Input Validation
       Do
           'Validate the seat number...
           Do
               If seatnr < 1 Or seatnr > 5 Then
                    seatnr = InputBox("That was an invalid number," & _
                         "Please enter your desired seat number Between 1 and 5")
               End If
           Loop Until seatnr >= 1 And seatnr <= 5
          
           If bookings(seatnr) = "" Then
               found = True
               bookings(seatnr) = pasid
           Else
               MsgBox ("seat number " & seatnr & " was not available")
           End If
       Loop Until found = True
       MsgBox ("Your seat has been booked")
   End If
End Sub