Use new instances of System.Random
class is one possible solution, and initialize each instance with the same seed.
Sub Main()
Dim yourSeed = 40 'Or whatever your seed it
Dim random1 As New System.Random(yourSeed)
Console.WriteLine(random1.Next(1, 26)) 'Prints 16
Console.WriteLine(random1.Next(1, 26)) 'Prints 14
Console.WriteLine(random1.Next(1, 26)) 'Prints 19
Dim random2 As New System.Random(yourSeed)
Console.WriteLine(random2.Next(1, 26)) 'Prints 16
Console.WriteLine(random2.Next(1, 26)) 'Prints 14
Console.WriteLine(random2.Next(1, 26)) 'Prints 19
End Sub