Please someone help me to make this code smaller.
Imagine how much code I would have when var1 = 100.
Please!

Code:
    Private Sub BackgroundWorker3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker3.DoWork
        Dim myfile = My.Computer.FileSystem.OpenTextFieldParser(tempdir & updatefile_list)
        Dim myfile2 = My.Computer.FileSystem.OpenTextFieldParser(tempdir & updatelist_explorer)
        var1 = myfile.ReadLine()
        If var1 = 1 Then
            var2 = myfile2.ReadLine()
            jou2 = myfile.ReadLine()
        ElseIf var1 = 2 Then
            var2 = myfile2.ReadLine()
            var3 = myfile2.ReadLine()
            jou2 = myfile.ReadLine()
            jou3 = myfile.ReadLine()
        ElseIf var1 = 3 Then
            var2 = myfile2.ReadLine()
            var3 = myfile2.ReadLine()
            var4 = myfile2.ReadLine()
            jou2 = myfile.ReadLine()
            jou3 = myfile.ReadLine()
            jou4 = myfile.ReadLine()
            ' and so on
        End If
    End Sub