Public Class Form1
 
    Dim Obligado1 As String = "Tu nombre es:", Obligado2 As String = "Tu apellido es:"
    Dim Obligado1_B = "Dijiste que tu nombre era:", Obligado2_B = "Dijiste que tu apellido era:"
    Dim Nombres As String = Nothing
 
    Private Sub TBox1_TextChanged(sender As Object, e As EventArgs)
        Nombres = sender.text
    End Sub
 
    Private Sub Button_Click(sender As Object, e As EventArgs)
        If Nombres Is Nothing Then
            MsgBox("No introduciste nada")
        ElseIf Not Nombres.Contains(Obligado1.ToLower) Or Not Nombres.Contains(Obligado2.ToLower) Then
            MsgBox("No introduciste el texto obligado")
        ElseIf Nombres.Contains(Obligado1.ToLower) And Nombres.Contains(Obligado2.ToLower) Then
            TextBox2.Text = Nombres.Replace(Obligado1.ToLower, Obligado1_B).Replace(Obligado2.ToLower, Obligado2_B)
        End If
    End Sub
 
    '// Final del ejemplo
    '////////////////////
    '// Final del ejemplo
 
 
 
    ' Controles
    Dim Button As New Button
    Dim TextBox1 As New TextBox
    Dim TextBox2 As New TextBox
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button.Text = "Comprobar"
        Button.Location = New Point(10, 10)
        TextBox1.Size = New Size(370, 20)
        TextBox2.Size = New Size(370, 20)
        TextBox1.Location = New Point(10, 40)
        TextBox2.Location = New Point(10, 65)
        AddHandler TextBox1.TextChanged, AddressOf TBox1_TextChanged
        AddHandler Button.Click, AddressOf Button_Click
        Me.Controls.Add(Button) : Me.Controls.Add(TextBox1) : Me.Controls.Add(TextBox2)
        Me.Size = New Point(410, 130)
    End Sub
 
End Class

' Debe dar 0... o un numero si hay algo antes
pos1 = texto.IndexOf(obligatorio1) 
' Debe dar ... 50 por ejemplo, ya que obligatorio tiene un largo de ... 30 (supongamos, ni si quiera lo cuento x'D) y son 20 caracteres que pone el usuario
pos2 = texto.IndexOf(obligatorio2) 
 
' Para saber que esta en orden se verifica
If pos1 < pos2 Then
    'Bien..
Else
    'Incorrecto
End if