If VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "European" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Edward"
                    VarCrew(i).Nationality = "English"
                Case 1
                    VarCrew(i).fName = "Alexander"
                    VarCrew(i).Nationality = "German"
                Case 2
                    VarCrew(i).fName = "Lucas"
                    VarCrew(i).Nationality = "Danish"
                Case 3
                    VarCrew(i).fName = "Alejandro"
                    VarCrew(i).Nationality = "Spanish"
                Case 4
                    VarCrew(i).fName = "Oscar"
                    VarCrew(i).Nationality = "Swedish"
                Case 5
                    VarCrew(i).fName = "David"
                    VarCrew(i).Nationality = "Swiss"
                Case 6
                    VarCrew(i).fName = "Adam"
                    VarCrew(i).Nationality = "Czech"
                Case 7
                    VarCrew(i).fName = "Jan"
                    VarCrew(i).Nationality = "Polish"
            End Select
    ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "European" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Jessica"
                    VarCrew(i).Nationality = "English"
                Case 1
                    VarCrew(i).fName = "Mathilde"
                    VarCrew(i).Nationality = "Danish"
                Case 2
                    VarCrew(i).fName = "Anna"
                    VarCrew(i).Nationality = "Polish"
                Case 3
                    VarCrew(i).fName = "Lucia"
                    VarCrew(i).Nationality = "Spanish"
                Case 4
                    VarCrew(i).fName = "Emma"
                    VarCrew(i).Nationality = "Swedish"
                Case 5
                    VarCrew(i).fName = "Sarah"
                    VarCrew(i).Nationality = "Austrian"
                Case 6
                    VarCrew(i).fName = "Tereza"
                    VarCrew(i).Nationality = "Czech"
                Case 7
                    VarCrew(i).fName = "Clara"
                    VarCrew(i).Nationality = "French"
            End Select
    ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "Asian" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Wei"
                    VarCrew(i).Nationality = "Chinese"
                Case 1
                    VarCrew(i).fName = "Shou"
                    VarCrew(i).Nationality = "Japanese"
                Case 2
                    VarCrew(i).fName = "Rahul"
                    VarCrew(i).Nationality = "Indian"
                Case 3
                    VarCrew(i).fName = "Mohammed"
                    VarCrew(i).Nationality = "Arabian"
                Case 4
                    VarCrew(i).fName = "Min-Jun"
                    VarCrew(i).Nationality = "Korean"
                Case 5
                    VarCrew(i).fName = "Yusuf"
                    VarCrew(i).Nationality = "Turkish"
                Case 6
                    VarCrew(i).fName = "Ali"
                    VarCrew(i).Nationality = "Iraqi"
                Case 7
                    VarCrew(i).fName = "Bataar"
                    VarCrew(i).Nationality = "Mongolian"
            End Select
    ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "Asian" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Ying"
                    VarCrew(i).Nationality = "Chinese"
                Case 1
                    VarCrew(i).fName = "Yui"
                    VarCrew(i).Nationality = "Japanese"
                Case 2
                    VarCrew(i).fName = "Priya"
                    VarCrew(i).Nationality = "Indian"
                Case 3
                    VarCrew(i).fName = "Maryam"
                    VarCrew(i).Nationality = "Arabian"
                Case 4
                    VarCrew(i).fName = "Noa"
                    VarCrew(i).Nationality = "Israeli"
                Case 5
                    VarCrew(i).fName = "Odval"
                    VarCrew(i).Nationality = "Mongolian"
                Case 6
                    VarCrew(i).fName = "Elif"
                    VarCrew(i).Nationality = "Turkish"
                Case 7
                    VarCrew(i).fName = "Seo-yeon"
                    VarCrew(i).Nationality = "Korean"
            End Select
    ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "African" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Ahmed"
                    VarCrew(i).Nationality = "Egyptian"
                Case 1
                    VarCrew(i).fName = "Hamza"
                    VarCrew(i).Nationality = "Lybian"
                Case 2
                    VarCrew(i).fName = "Ajagbe"
                    VarCrew(i).Nationality = "Nigerian"
                Case 3
                    VarCrew(i).fName = "Rabia"
                    VarCrew(i).Nationality = "Kenyan"
                Case 4
                    VarCrew(i).fName = "Jelani"
                    VarCrew(i).Nationality = "Swahili"
                Case 5
                    VarCrew(i).fName = "Kevin"
                    VarCrew(i).Nationality = "South African"
                Case 6
                    VarCrew(i).fName = "Malusi Dosi"
                    VarCrew(i).Nationality = "Sudanese"
                Case 7
                    VarCrew(i).fName = "Ansela"
                    VarCrew(i).Nationality = "Angolian"
            End Select
    ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "African" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Shaimaa"
                    VarCrew(i).Nationality = "Egyptian"
                Case 1
                    VarCrew(i).fName = "Aya"
                    VarCrew(i).Nationality = "Lybian"
                Case 2
                    VarCrew(i).fName = "Sade"
                    VarCrew(i).Nationality = "Ghanaian"
                Case 3
                    VarCrew(i).fName = "Sudi"
                    VarCrew(i).Nationality = "Swahili"
                Case 4
                    VarCrew(i).fName = "Nicole"
                    VarCrew(i).Nationality = "South African"
                Case 5
                    VarCrew(i).fName = "Crystal"
                    VarCrew(i).Nationality = "Sudanese"
                Case 6
                    VarCrew(i).fName = "Lara"
                    VarCrew(i).Nationality = "Angolian"
                Case 7
                    VarCrew(i).fName = "Anele"
                    VarCrew(i).Nationality = "Zimbabwean"
            End Select
    ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "American" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "John"
                    VarCrew(i).Nationality = "American"
                Case 1
                    VarCrew(i).fName = "Miguel"
                    VarCrew(i).Nationality = "Brazilian"
                Case 2
                    VarCrew(i).fName = "Jacob"
                    VarCrew(i).Nationality = "Canadian"
                Case 3
                    VarCrew(i).fName = "Benjamin"
                    VarCrew(i).Nationality = "Chilean"
                Case 4
                    VarCrew(i).fName = "Diego"
                    VarCrew(i).Nationality = "Mexican"
                Case 5
                    VarCrew(i).fName = "Sebastien"
                    VarCrew(i).Nationality = "Venezuealian"
                Case 6
                    VarCrew(i).fName = "Juan"
                    VarCrew(i).Nationality = "Argentinian"
                Case 7
                    VarCrew(i).fName = "Jayden"
                    VarCrew(i).Nationality = "Jamaican"
            End Select
    ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "American" Then
        x = Rand(0, 7)
            Select Case x
                Case 0
                    VarCrew(i).fName = "Sofia"
                    VarCrew(i).Nationality = "Argentinian"
                Case 1
                    VarCrew(i).fName = "Olivia"
                    VarCrew(i).Nationality = "Canadian"
                Case 2
                    VarCrew(i).fName = "Gabrielle"
                    VarCrew(i).Nationality = "Jamaican"
                Case 3
                    VarCrew(i).fName = "Isabella"
                    VarCrew(i).Nationality = "Mexican"
                Case 4
                    VarCrew(i).fName = "Madis"
                    VarCrew(i).Nationality = "American"
                Case 5
                    VarCrew(i).fName = "Florencia"
                    VarCrew(i).Nationality = "Uruguayan"
                Case 6
                    VarCrew(i).fName = "Camila"
                    VarCrew(i).Nationality = "Venezualian"
                Case 7
                    VarCrew(i).fName = "Isidora"
                    VarCrew(i).Nationality = "Chilean"
            End Select