1x geen antwoord geven in Inputbox mag niet 2e keer wel

[roytjuh86]

Hallo,

Ik heb een klein programmaatje gemaakt waarbij een Inputbox gebruikt wordt. Deze vraagt om een antwoord

Hieronder staat een deel van de code. In dit geval komt de inputbox nog een keer naar voren wanneer er geen antwoord (lege string, cancel-button of ok-button) wordt gegeven.
Het is de bedoeling dat na 1x de lege string is ingevuld nog maar 1x de inputbox naar voren komt. Dus wanneer er voor de 2e keer geen antwoord wordt gegeven, moet hij het antwoord als FOUT zien.

Dus waar het op neer komt is dat ik de while loop niet meer kan gebruiken, maar het dus anders oplossen.

Iemand enig idee?

Alvast bedankt!

Case 0
                answer = InputBox("Please type the answer") 'Vraagt het programma om het juiste antwoord
                While answer = ""
                answer = InputBox("Please type the answer")
                End While

                If answer = "=,<>,>,<,>=,<=" Then 'Wanneer het antwoord correct is 
                    TextBox1.Text = "Great!" 'Krijgt de gebruiker een compliment
                Else
                    TextBox1.Text = "Please enter the answer exactly as here in the program..."
                    TextBox2.Text = "=,<>,>,<,>=,<="
                End If

 

[5i5]

While vervangen door If?

Case 0
                answer = InputBox("Please type the answer") 'Vraagt het programma om het juiste antwoord
                If answer = ""
                answer = InputBox("Please type the answer")
                End If

                If answer = "=,<>,>,<,>=,<=" Then 'Wanneer het antwoord correct is 
                    TextBox1.Text = "Great!" 'Krijgt de gebruiker een compliment
                Else
                    TextBox1.Text = "Please enter the answer exactly as here in the program..."
                    TextBox2.Text = "=,<>,>,<,>=,<="
                End If