El texto de las preguntas pon lo que te dé la gana...
Las líneas que son excepción son las líneas donde se espera un número (solo número), las cuales son las líneas de 'solución' y la primera que contiene el número de preguntas.
El ejemplo previo, modificado (donde se puede):


Al respecto date cuenta que hemos limitado a byte el valor númerico, porque no va ser cierto que una pregunta ofrezca más de 256 respuestas entre las que elegir, ni tampoco va a ser un cuestionario cómodo que tenga más de 255 preguntas... pero si necesitas ampliar ese valor... en vez de byte, defínelo como short (int16), que ofrece hasta 65536 preguntas y 65546 opciones de respuesta por cada pregunta.

En el programa, mejor dicho en TODOS los programas, siempre que puedas (y si no puedes también), haz que funcione con números, siempre, siempre será infinitamente más rápido... el ordenador cuenta bien números, pero cuenta muy mal las letras A+B no es C, porque A=65 y B=66, luego para que fuere C, habría que convertirlo a números, sumarlo y luego el resultado convertirlo a letra otra vez...  66+65-64=67, Mejor si 1+2=3, esto es lo más efectivo.

Bueno, no pasa nada si se cambia el valor de las soluciones de la respuesta, después de todo está previsto al haber dispuesto una función de conversión en la propia estructura, así si quieres que el 'Alumno' en vez de responde 0, 2..1 responda A, C..B
donde pone esto:

Public Function Convertir(ByRef Texto As String) As RespuestasPosibles
            Select Case Texto
                Case "0" : Return RespuestasPosibles.RESPUESTA_A
                Case "1" : Return RespuestasPosibles.RESPUESTA_B
                Case "2" : Return RespuestasPosibles.RESPUESTA_C
                Case "3" : Return RespuestasPosibles.RESPUESTA_D
                Case Else : Return RespuestasPosibles.RESPUESTA_A
            End Select
        End Function
 

Cámbialo por esto otro (observa la escasa diferencia, donde antes ponía 0,1,2,3 ahora ponemos A,B,C,D pero como el usuario podría poner a,b,c,d antes nos aseguramos que la comparación sea en mayuscula fíjate en la línea "Select Case Texto.Toupper", antes era solo "Select Case Texto"), peor sigue dejando el número de solución en el texto, también se puede cambiar, pero requiere retocar más cosas en el código... ya lo harás cuando aprendas lo suficiente:

Public Function Convertir(ByRef Texto As String) As RespuestasPosibles
            Select Case Texto.Toupper
                Case "A" : Return RespuestasPosibles.RESPUESTA_A
                Case "B" : Return RespuestasPosibles.RESPUESTA_B
                Case "C" : Return RespuestasPosibles.RESPUESTA_C
                Case "D" : Return RespuestasPosibles.RESPUESTA_D
                Case Else : Return RespuestasPosibles.RESPUESTA_A
            End Select
        End Function

Internamente en ambos casos sigue devolviendo un valor numérico, y externamente en ambos caso sigue recibiendo un texto...

Bien, como estás empezando, déjalo tal cual, no te preocupes sobre lo del inputbox y el formulario... solo señalarte que el inputbox, es un formulario que ofrece un ancho máximo y que por tanto si las preguntas son muy largas, como se han puesto en el título, no se verán enteras... entonces confórmate en tal caso con pasarlas al mismo sitio que las opciones de respuesta y deja una línea en blanco tras la pregunta...

..en fin trata de entender el código, que hace cada cosa y sobretodo, por qué lo hace... pulsando la tecla F11 te moverás paso a paso entre las instrucciones del código (examina el menú 'Depurar' y haz uso de sus ítems, aprendenrás mucho más rápido así), así vas viendo y entiendo como opera (en ese estado posando el ratón sobre el código, el 'intellisense', te da info adicional sobre los valores actuales que tiene un objeto o variable... también podría serte útil, activar desde el menú 'Depurar-->Ventanas-->variables locales', aunque ahí todas esas ventanas son muy útiles (aunque cada una en su momento), la que te he dicho facilita mucho ver el estado actual de cada objeto hasta sus últimos campos... mientras estás en ejecución paso a paso o parado en un punto de interrupción...

Si es preciso mira de buscar en youtube algún vídeo sobr eel manejo dle IDE de VB.

Si uno fuera multimillonario, lo que haría sería diseñar el mismo hardware, eso te libera de entrada de tener que amoldarte al hardware. Puedes además potenciar aquellas áreas donde uno cree que se necesite más énfasis...
..yo por ejemplo no le veo mucho sentido a tener una CPU por un lado y una GPU por otro. Creo que una buena CPU debería hacer innecesario disponer de una GPU.

Cuando diseñas el hardware, tú mismo al hacerlo, esás formalizando como será el ensamblador de ese hardware. Siempre se parte de la CPU, luego se puede rediseñar el resto del hardware o reutilizar lo ya existente. Por ejemplo cosas como la memoria, quizás no valga la pena molestarse en rediseñarlas, pero las BIOS, están pidiendo a gritos que sí... La propia BIOS debería ser un mini Sistema Operativo en sí mismo, no solo para la configuración hardware del equipo si no para hacer operaciones básicas de lectura y escritura sobre unidades de almacenamiento, eso implica que el propio BIOS entonces deberia alojar algún que otro driver...

Una vez se tenga el hardware listo, el diseño del software, el S.O. depende de lo que quieras que haga y el hardware permita. Básicamente considera que todo lo que el hardware no tenga de fábrica, rediseñado en software será siempre hackeable.

El Kernel, debes considerarlo como el 'bucle principal de trabajo' del sistema operativo, así que deberá tener asignadas funciones como la distribución de tareas, la compartimentación de la memoria, la atención d eprioridades, la seguridad, etc... El diseño de ello parte más d elas ideas propias que uno tiene sobre como debería ser, que sobre imitar lo que otros ya hacen. Básicamente si tratas de imitar lo que haga otro S.O. es fácil que acabe siendo mucho más lento. cuando tienes un diseño particular ya pensado, suele estar diseñado junto a otras partes que hacen que el 'todo' sea algo mucho más sólido y funciones con mucha más eficiencia (imagina la diferencia entre el motor de un coche donde cada pieza es diseñada sola, pero teniendo presente las características del resto de piezas, sus tamaños y la posición que ocupan, con abrir un motor y pretender encajar ahí ahora una pieza para que haga algo nuevo que no tenía en diseño).

El lenguaje de programación, es independiente... quiero decir que se pueden diseñar tantos como se desee y la forma en que trabajen sucede lo msimo, piensa que lo único preciso es el compilador, que de una forma u otra lo que hace es como se ha de traducir el código de dicho lenguaje al ensamblador que entienda ese hardware. el ensamblador en última instancia es también un lenguaje intermedio, que se traduce a binario, pero ya de una forma 'natural', es decir los lenguajes ensamblador, también pueden ser rediseñados. Es lo que se llama "codificación de instrucciones", por ejemplo pueden dedicare 2 bytes para el código de operación, otros 2 bytes para especificar el modo de dirección y registro y otros bytes adicionales cuando por ejemplo se reciben datos inmediatos (que pueden ocupar 1,2,4,8 bytes extras)...

En el diseño hay que decidir y definir que conjunto de instrucciones se abordarán e incluso el tamaño de bits de los buses. 8,16,32,64,128 ???. Fácilmente se ve que si admite esos tamaños, al ser 5 variantes, solo para especificar el tamaño se precisan 3 bits. Por supuesto esto es aparte de la diferenciación en las propias instrucciones y por tanto uno podría llamar Mov a todas lasinstrucciones de transferencia de datos, o llamarla Mover o llamarlas individualmente según el tamaño de bytes que se muevan del origen al destino, por ejemplo:
MovL0 EAX,EBX
MovL1 EAX,EBX
MovL2 EAX,EBX
MovL3 EAX,EBX
Podrían estar diciendo que solo se mueve 1,2,4 u 8 bytes (los más bajos de EBX a EAX)
La alternativa MovL0 EAX,EBX lo sería de la actual Mov al,bl,
Fijándose como la decisión afecta solo al diseño externo del lenguaje ya que la 'codificación de la instrucción' al final seguramente serían idénticas, y la elección de una u otra manera, podría por ejemplo simplificar cometer menos errores y detectarlos más fácilmente, a cambio de tener una tabla de instrucciones visiblemente más larga, frente a una tabla de instrucciones más reducidas (pero más compleja) y sujeta a una mayor dificultad de aprendizaje y resolución de errores...

Por último, no veo a donde quieres ir con eso de"¿este nuevo sistema sería mejor que los ya existentes..?" A qué nuevo sistema te refieres?. Que yo lea, no has definido nada nuevo, solo plantes la hipotética posibilidad de hacer algo, sin especifcar cómo ni qué... en cualqier caso, la respuesta a ello es Depende. Depende de qué se haga, depende de si la idea en la cabeza finalmente es posible hacerse y se hace o si al final se trunca y se hace otra cosa distinta.

En general una vez que se ha definido bien un sistema podría establecerse dado su rendimiento, si mejora algo y en qué areas o no a lo ya existente. La potencia d elos actuales procesadores, recáe básicamente en 3 cosas: la velocidad de ejecución, el procesado en paralelo y la miniaturización alcanzada... cada una está interrelacionado con el resto. La velocidad de ejecución también depende de la miniaturización, cuando más pequeño sea el proceso de estampado del chip, más cerca estarán los componentes, menos distancia recorrerán y por tanto antes llega la señal eléctrica a su destino. cuantos más millones de puertas tengas, más posibilidades de procesador en paralelo hay de poder resolver más de una instrucción a la vez, la cantidad de pertas también dependerá de la miniaturización, la disipación de calor suele ser un problema constante, cuanto mas pequeños, menos calor emite cada una y cuanto menos calor individual, menos acumulado en total y por tanto pueden añadirse más componentes hasta un límite aceptable, a su vez cuantos más haya y más puertas concurran para realizar una o un grupo de instrucciones (no necesariamente siempre cieto), más veloz resultará.

El procesado en paralelo se ha resuelto muy bien con los múltiples cores, pero también se llega a un cuello de botella por la ineficiencia al concurrir todos a la vez a la memoria, por eso más de un core dedicado a la misma y específica tarea (en general del mismo proceso del mismo programa), suele implicar acceder a la misma área de memoria que queda bloqueada y por tanto compiten por su acceso de lo que resulta inefectivo... es más eficiente (para el procesado general), que cada núcleo opere sobre una tarea distinta, así es más probable que no se pisen y bloqueen en el acceso a memoria.

En defnitiva... como te decía que un sistema sea mejor o no que otro, debe como mínimo ser teorizado en todos sus detalles, simplement ediciendo que 'si hago algo nuevo', es insuficiente para decir nada que no suene prepotente, ya que se estaría adivinando como será algo, sobre lo que nadie sabe nada.

Ahora si tu pregunta fuera: ¿pueden mejorarse los sitemas actuales con un nuevo rediseño sea del software o del hardware?. La respuesta es sí en ambos casos... ya que todos los sistemas actuales arrastran con su legado, que es un pesado lastre.
Puestos a apostar, yo lo haría por un hardware nuevo con un software nuevo... para superar límites estúpidos, resolver problemas de segurdiad desde el hardware y mejorar muchos aspectos en todas las áreas...

lo primero en el fichero debe ser una línea donde haya un valor numérico entre 1 y 255
Ese valor indica cuántas preguntas hay en es efichero, en mi ejemplo he puesto 6 preguntas, por eso en la primera línea aparece un 6.

Al leer esa línea (al comienzo del fichero), lo convierte a byte, si hay un texto largo, evidentemente no podrá convertirlo a byte

6 hola que tal <--- no puede ser convertido a byte un texto así.

¿Puedes volcar el texto que has puesto en tu fichero???. eso ayudaría ver más claro donde está el error.

La solución eficaz... es que mañana mismo, la gente empezara a reclamar a sus proveedores la extinción del contrato... cuando la suma fuera por los 100 millones en una semana, ya veríamos si prefieren vender los datos de nadie, ganando por la suscripción de 0 contratos o si preferían ganar la suscripción de millones d econtratos y nada por vender datos.

...pero como la gente mayormente es incapaz de tomar una decisión así y mantenerla el tiempo que haga falta... pués se saldrán con la suya.

Por supuesto...
Un edificio de 10 plantas, emplea más silicio del que llevan todos los chips del mundo.

Te decía al final:

Un ejemplo para copiar y pegar en un fichero de texto:

...y el fichero debe estar situado en la misma carpeta donde está el ejecutable, la carpeta varía en función de si estás en modo debug o compilado...

En debug, la ruta sería más o menos esta:
... \WindowsApplication1\bin\Debug\Cuestionario.txt
ó si está compilado:
... \WindowsApplication1\bin\Release\Cuestionario.txt

la ruta y el nombre del fichero, se pueden cambiar en la línea:
que aparece dos veces, una en el método de evento:
Test_IntroducirNuevoCuestionario
y otra en método de carga del formulario:
Form1_Load

El código sale largo, porque lleva comentarios, estructuras y demás... (pueden omitirse o remplazarse por alogo más sencillo)... además, puede ser optimizado, está sencillo y 'expandido para que te sea más asequible de entender...

Bien... ya estoy de vuelta.
He corregido un par de sencillos bugs... ahora funciona correctamente.

Recuerda que el inputbox, limita mucho el ancho para preguntas y respuestas largas, lo mejor es que lo remplaces por un formulario y tener un método similar (al inputbox), donde envías los mismos parámetros que el inputbox, que muestre la ventana y recoja el resultado del usuario de vuelta... Vamos emular al inputbox... eso queda a tu esfuerzo.

Crea un nuevo proyecto, añade un formulario con un solo botón y añade una clase llamada "cuestionario"...

No he tenido tiempo de probarlo (creando un fichero de ejemplo y tal) si te sale algún error trata de solucionarlo y si no puedes me comentas... ahora tengo que salir...

Este sería el código para la clase:

Public Class Cuestionario
    Private p_Preguntas() As CuestionProfesor
    Private p_NumPreguntas As Integer
    Private p_Next As Integer
    Private p_Aciertos As Integer
 
    Private Rnd_M As Integer
    Private Rnd_Q As Integer
    Private Rnd_P As Integer
 
 
    Public Enum RespuestasPosibles
        RESPUESTA_A = 0
        RESPUESTA_B = 1
        RESPUESTA_C = 2
        RESPUESTA_D = 3
    End Enum
 
    ''' <summary>
    ''' La pregunta que rellena el profesor.
    ''' </summary>
    ''' <remarks>Al hacer el test, se envía al alumno, una copia de la pregunta y respuestas únicamente.</remarks>
    Public Structure CuestionProfesor
        Public Pregunta As String
        Public Respuesta1 As String
        Public Respuesta2 As String
        Public Respuesta3 As String
        Public Respuesta4 As String
        Public Solucion As RespuestasPosibles    ' 
        Friend Acierto As Boolean ' para no hacer trampas...
 
        ''' <summary>
        ''' Convierte una pregunta del profesor en una del alumno.
        ''' </summary>
        ''' <returns>Devuelve una copia idéntica de la pregunta y las posibles respuestas.</returns>
        ''' <remarks></remarks>
        Friend Function Convertir() As CuestionAlumno
            With Convertir
                .Pregunta = Me.Pregunta
                .Respuesta1 = Me.Respuesta1
                .Respuesta2 = Me.Respuesta2
                .Respuesta3 = Me.Respuesta3
                .Respuesta4 = Me.Respuesta4
            End With
            Return Convertir
        End Function
    End Structure
 
    ''' <summary>
    ''' La pregunta que se envía para ser respondida.
    ''' </summary>
    ''' <remarks>Es una copia de la "pregunta del profesor"</remarks>
    Public Structure CuestionAlumno
        Public Pregunta As String
        Public Respuesta1 As String
        Public Respuesta2 As String
        Public Respuesta3 As String
        Public Respuesta4 As String
 
        Public Function Convertir(ByRef Texto As String) As RespuestasPosibles
            Select Case Texto
                Case "0" : Return RespuestasPosibles.RESPUESTA_A
                Case "1" : Return RespuestasPosibles.RESPUESTA_B
                Case "2" : Return RespuestasPosibles.RESPUESTA_C
                Case "3" : Return RespuestasPosibles.RESPUESTA_D
                Case Else : Return RespuestasPosibles.RESPUESTA_A
            End Select
        End Function
    End Structure
 
    ''' <summary>
    ''' Envía al cliente la pregunta actual del test.
    ''' </summary>
    ''' <param name="Pregunta">Una estructura conteniendo la pregunta y las posibles respuestas.</param>
    ''' <param name="Respuesta">El índice de respuesta que dió el usuario del cliente.</param>
    ''' <remarks></remarks>
    Public Event Test(ByRef Pregunta As CuestionAlumno, ByRef Respuesta As RespuestasPosibles)
    ''' <summary>
    ''' Solicita al cliente los datos de una cuestión.
    ''' </summary>
    ''' <param name="Pregunta">Pregunta que se formula</param>
    ''' <param name="Respuesta1">Posible respuesta -A-</param>
    ''' <param name="Respuesta2">Posible Respuesta -B-</param>
    ''' <param name="Respuesta3">Posible respuesta -C-</param>
    ''' <param name="Respuesta4">Posible respuesta -D-</param>
    ''' <param name="Solucion">Indice de la solución correcta a la pregunta entre las 4 (rango 0-3)</param>
    ''' <remarks></remarks>
    Public Event EntrarPregunta(ByRef Pregunta As String, ByRef Respuesta1 As String, ByRef Respuesta2 As String, ByRef Respuesta3 As String, ByRef Respuesta4 As String, ByRef Solucion As RespuestasPosibles)
    ''' <summary>
    ''' Informa al cliente que se ya se han realizado todas las preguntas del cuestionario.
    ''' </summary>
    ''' <param name="Aciertos">Entrega el número de aciertos que se obtuvo.</param>
    ''' <param name="RepetirTest">Pregunta al cliente si se desea repetir (reiniciar) el mismo test</param>
    ''' <remarks></remarks>
    Public Event FinDeCuestionario(ByVal Aciertos As Byte, ByRef RepetirTest As Boolean)
    ''' <summary>
    ''' Solicita el cliente si desea rellenar el cuestionario actual
    ''' </summary>
    ''' <param name="NumPreguntas">Un valor 0, expresa que no se desea realizar otro cuestionario.</param>
    ''' <remarks></remarks>
    Public Event IntroducirNuevoCuestionario(ByRef NumPreguntas As Byte)
 
 
 
 
    ''' <summary>
    ''' Devuelve el número de preguntas que tiene el cuestionario actual.
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property CantidadDePreguntas As Integer
        Get
            Return p_NumPreguntas
        End Get
        'Set(ByVal value As Byte)
        '    Call ComenzarTest(value)
        'End Set
    End Property
 
    ''' <summary>
    ''' Solicita la entrega de una nueva cuestión.
    ''' </summary>
    ''' <remarks>Si alcanza el final, devuelve un evento para solicitar si se desea barajar de nuevo el test actual.</remarks>
    Public Sub Siguiente()
        Dim r As RespuestasPosibles
        Dim ca As CuestionAlumno
        Dim np As Byte = 0
 
        If (p_Next < p_NumPreguntas) Then
            ca = p_Preguntas(p_Next).Convertir
            RaiseEvent Test(ca, r)
            If (p_Preguntas(p_Next).Solucion = r) Then
                p_Preguntas(p_Next).Acierto = True
                p_Aciertos += 1
            End If
 
            p_Next += 1
        End If
 
        If (p_Next = p_NumPreguntas) Then
            Dim barajaOtraVez As Boolean = False
 
            RaiseEvent FinDeCuestionario(p_Aciertos, barajaOtraVez)
 
            If (barajaOtraVez = True) Then
                Call Barajar()
                ca = p_Preguntas(p_Next).Convertir
                RaiseEvent Test(ca, r) ' aquí, p_next vale ahora mismo 0.
                If (p_Preguntas(p_Next).Solucion = r) Then
                    p_Preguntas(p_Next).Acierto = True
                    p_Aciertos += 1
                End If
            Else
                RaiseEvent IntroducirNuevoCuestionario(np)
                If (np > 0) Then
                    Call ComenzarTest(np)
                End If
            End If
            'Call MessageBox.Show("No existe la pregunta número: " & p_next.ToString & vbNewLine & "Realice una nueva petición, el número máximo de pregunta es: " & (p_NumPreguntas-1).ToString)
        End If
    End Sub
 
    'Public Sub New()
    '    Me.New(6)
    'End Sub
 
    'Public Sub New(ByVal NumPreguntas As Byte)
    '    Call ComenzarTest(NumPreguntas)
    'End Sub
 
    ''' <summary>
    ''' Solicita al cliente que introduzca los datos del nuevo cuestionario.
    ''' </summary>
    ''' <param name="NumPreguntas">Cantidad de preguntas que tendrá el cuestionario</param>
    ''' <remarks>Se invoca al crear la clase y cuendo se ha finalizado el cuestionario actual</remarks>
    Public Sub ComenzarTest(ByVal NumPreguntas As Byte)
        Dim k As Integer, q As CuestionProfesor
 
        If (p_NumPreguntas = 0) Then
            Rnd_M = 5 : Rnd_Q = 11 : Rnd_P = 767
        Else ' evitamos números pares...
            Rnd_M = ((Rnd_M Mod 81) + 2)
            Rnd_Q = ((Rnd_Q Mod 353) + 4)
            Rnd_P = ((Rnd_P Mod 2311) + 8)
        End If
 
        p_NumPreguntas = NumPreguntas
        ReDim p_Preguntas(0 To p_NumPreguntas)
 
        For k = 0 To NumPreguntas - 1
            With q
                .Pregunta = ""
                .Respuesta1 = ""
                .Respuesta2 = ""
                .Respuesta3 = ""
                .Respuesta4 = ""
                .Solucion = 0
                ' ahora se ofrece la oportunidad de rellenar el cuestionario (que quizás esté guardado en un fichero)...
                RaiseEvent EntrarPregunta(.Pregunta, .Respuesta1, .Respuesta2, .Respuesta3, .Respuesta4, .Solucion)
                p_Preguntas(k) = q ' y se almacena...
            End With
        Next
 
        Call Barajar()
    End Sub
 
 
    ''' <summary>
    ''' Reinicia el cuestionario. Baraja los test del cuestionario actual y restablece a 0 el número de aciertos.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub Reset()
        Call Barajar()
    End Sub
 
    ''' <summary>
    ''' Baraja las preguntas del test y se obtiene una lista en orden aleatorio.
    ''' </summary>
    ''' <remarks>El 'siguiente' se resetea al índice 0 del cuestionario.</remarks>
    Private Sub Barajar() ' es mejor que sea un método privado, Y a su vez Se crea el método Reset, más explícito...
        Dim k As Integer, az As Integer, tmp As CuestionProfesor
 
        For k = p_NumPreguntas - 1 To 1 Step -1
            az = (Random(az) Mod (k + 1)) ' proporciona un valor entre 0 y k.
 
            tmp = p_Preguntas(az)
            p_Preguntas(az) = p_Preguntas(k)
            p_Preguntas(k) = tmp
        Next
        p_Next = 0
        p_Aciertos = 0
    End Sub
 
    ''' <summary>
    ''' Genera un número random pseudoaleatorio.
    ''' </summary>
    ''' <param name="n">Semilla desde la que generar el siguiente número</param>
    ''' <returns>Devuelve un entero entre 0 y (Rnd_P -1)</returns>
    ''' <remarks>Hay que ser cuidadoso al elegir el valor de los parámetros internos que utiliza la función. Si todos los parámetros son congruentes entre sí, podría devolver números predecibles, incluso siempre el mismo (típicamente el 0).</remarks>
    ''' Puede recurrirse al propio entorno NET para generar los números aleatorios.
    Private Function Random(ByVal n As Integer) As Integer
        Random = (((n * Rnd_M) + Rnd_Q) Mod Rnd_P)
    End Function
 
End Class
 

Y éste el código para el formulario:

Public Class Form1
    Private WithEvents Test As New Cuestionario
    Private Fios As IO.StreamReader
 
    ' Realizar la siguiente pregunta
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Test.Siguiente()
    End Sub
 
    ' Hacer la pregunta.
    ' La rpopia clase, verifica la respuesta y lleva la cuenta de aciertos y al final del test, notifica el resultado.
    Private Sub Test_Test(ByRef Pregunta As Cuestionario.CuestionAlumno, ByRef Respuesta As Cuestionario.RespuestasPosibles) Handles Test.Test
        With Pregunta
            Dim R As String = InputBox(.Respuesta1 & vbNewLine & .Respuesta2 & vbNewLine & .Respuesta3 & vbNewLine & .Respuesta4 & vbNewLine & vbTab & "( ELIJA COMO RESPUESTA 0, 1,2 Ó 3)", .Pregunta)
            Respuesta = Pregunta.Convertir(R)
        End With
    End Sub
 
 
    ' El cliente debe indicar las preguntas que tendrá el nuevo cuestionario.
    ' un valor de 0, indica que ya no se desea hacer más test.
    ' En el ejemplo, se lee la primera línea del fichero, que contiene el número de preguntas que contiene el cuestionario dentro del fichero.
    ' Uno debe proveer 
    Private Sub Test_IntroducirNuevoCuestionario(ByRef NumPreguntas As Byte) Handles Test.IntroducirNuevoCuestionario
        Fios.Close()
        Dim fin As Boolean = MessageBox.Show("¿Desea dar por finalizado la sesión de tests (S/N)?", "Nuevo cuestionario...", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If (fin = False) Then
            Fios = New IO.StreamReader(Application.ExecutablePath & "\Cuestionario.txt")
            NumPreguntas = Convert.ToByte(Fios.ReadLine) ' ojo: Cambiar al gusto y necesidad... 
        Else
            NumPreguntas = 0
        End If
    End Sub
 
    ' Solicita al cliente cada test, uno a uno. debe introducirse los datos procedentes de donde sea...
    '   en este ejemplo se proveen de un simple fichero de texto, que está formateado así:
    '  NumPreguntas: ' tiene el número de preguntas que aloja el fichero, en el ejemplo no se verifica si esto es correcto.
    '  Pregunta X
    '    Respuesta A
    '    Respuesta B
    '    Respuesta C
    '    Respuesta D
    '    Solución A-D
    ' En el ejemplo provisto no se verifica que todo esté correcto, se da por hecho que es así.
    Private Sub Test_EntrarPregunta(ByRef Pregunta As String, ByRef Respuesta1 As String, ByRef Respuesta2 As String, ByRef Respuesta3 As String, ByRef Respuesta4 As String, ByRef Solucion As Byte) Handles Test.EntrarPregunta
        Pregunta = Fios.ReadLine
 
        Respuesta1 = Fios.ReadLine
        Respuesta2 = Fios.ReadLine
        Respuesta3 = Fios.ReadLine
        Respuesta4 = Fios.ReadLine
 
        Solucion = Fios.ReadLine
    End Sub
 
 
    Private Sub Test_FinDeCuestionario(ByVal Aciertos As Byte, ByRef RepetirTest As Boolean) Handles Test.FinDeCuestionario
        Dim numPreg As Integer = Test.CantidadDePreguntas        
        Dim btn As Windows.Forms.MessageBoxButtons = vbYesNo
        Dim ico As Windows.Forms.MessageBoxIcon
 
        ' Seleccionamos un icono en función del número de aciertos podría personalizarse mejor con iconos específicos creados al efecto).
        If (Aciertos < (numPreg / 2)) Then
            ico = MessageBoxIcon.Warning
        Else
            ico = MessageBoxIcon.Information
        End If
 
        RepetirTest = MessageBox.Show("El número de aciertos fue: " & Aciertos.ToString & vbNewLine & "Sobre " & numPreg.ToString & " preguntas" & vbNewLine & vbNewLine & vbTab & "¿Desea repetir el mismo cuestionario (S/N)?", "Se ha finalizado el cuestionario.", btn, ico)
    End Sub
 
 
 
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Fios = New IO.StreamReader(Application.StartupPath & "\Cuestionario.txt")
        Test.ComenzarTest(Convert.ToByte(Fios.ReadLine))
    End Sub
 
    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Fios.Close()
        Fios = Nothing
    End Sub
End Class
 

Para probarlo debes crear un fichero de texto llamado cuestionario.txt en la ruta del ejecutable (nota que si está en debug, la carpeta es distinta de si está compilado), con la siguiente estructura (OJO un dato por cada línea, y por línea se entiende Un SALTO de LINEA...

'  NumPreguntas: ' tiene el número de preguntas que aloja el fichero, en el ejemplo
(por cada pregunta que indique numpreguntas debe haber esta estructura)
'  Pregunta X el texto de la pregunta, por ejemplo: Test 01: De qué color es la hierba?
'    Respuesta A  el texto de una posible respuesta, por ejemplo: 0 - Azul
'    Respuesta B   por ejemplo 1 - Blanco
'    Respuesta C  por ejemplo 2 - verde
'    Respuesta D  por ejemplo 3 - Gris
'    Solución 0-3 un valor numérico entre 0 y 3 , por ejemplo 2


---------------------------------------------------
p.d.: no se utiliza ningún formulario extra, todo la operación de mostrar los test recáe sobre un objeto inputbox.... que para el caso de ejemplo que se trata, es más que suficiente... ya tu tendrás que poner algo de tu parte y modificarlo a tus necesidades.

Lo que se hace aleatoriamente es reordenar las preguntas en el array y lueo se procede a mostrarlas en ese orden (desordenado, barajado), como cuando barajas un mazo de cartas y luego las muestras una a una...

bfffffffffffffffffffff....
Estas empresas empeñadas en ganar millones con patentes biométricas...

está más que demostrado, que ABSOLUTAMENTE todas las formas biométricas, presentes y futuras, son hackeables.... sencillamanete si hay un hardware que ha de registrar la biometría de cierta parte de la anatomía humana, entonces esa info es clonable, y si es clonable es factible de ser volcada en algún dispositivo que luego puede ser usado para colarse...

Básicamente el ABC del asunto se resume en que si me roban las llaves de casa y entran y me roban, al menos podré cambiar la ceradura y a otra cosa... en cambio si utilizo el iris del ojo (por ejemplo), y se empeñan en acceder mi casa, pués podría acabar con un ojo arrancado y que guardan en formol... pero yo ya no podré reponer mi ojo. ...las huellas de la mano... esos dispositivos ridículos que capturan tu huella dactilar... quiensabe donde se ha clonado esas huellas y donde hay una copia ahora mismo en la red... ahora el día d emañana te creas una cuenta bancaria (gorda), y que el banco controla su acceso mediante tu huella dactilar... ya tienen copia, luego te la podrán hackear... con las llaves, podrías cambiar la cerradura, pero que C0J0N3X se supone que has de hacer con tus huellas???.

En fin, las contraseñas siguen siendo lo mejor, aunque falla el hardware que ha de contenerlas libre de intromisiones.

Me gustaría saber que hará aquel que tenga ahora acceso a su casa mediante la biometría del corazón, y mañana le dé un infarto, se lo lleven al hospital y cuando salga, vez que su "bioseñal", ya no es válida... no podrá acceder a su casa, ni al coche, ni a su cuenta bancaría, ni... a todos los sitios que fueren sumando al "hipotético sistema biométrico infalible", con que contínuamente son adjetivados, para intentar negociar sus patentes...

La única firma biométrica infalible, es aquella que no se pueda registrar y por lo tanto, ni siquiera tener una copia, por lo que per sé no podría ser utilizada.

Lamentable....

Una empresa que cobra comisiones, no debe imponer a sus comisionados como deben llevar sus negocios. ...o dicho de otra manera, hacerlo, es un acto propio de mafias.

En sus productos (software o hardware) que hagan lo que les salga de los EGGS, igual que deben hacer quienes programan para sus chips...