Переменные не видны, если объявлены в блоке If - Then

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
'''
''Наверху такие же блоки от 1 до 11
''
 
'12 Блок
If bytНомерЗнака = 12 Then
            Dim path_Выбранный_Знак As String = Application.StartupPath & "\Resources\Text\Zaraev\(12)Рыбы.txt"
            Dim Lines_Выбранный_Знак() As String = IO.File.ReadAllLines(path_Выбранный_Знак, System.Text.Encoding.Default)
        End If
 
 
 
        'Жирный и нежирный
        strMassFontBold = Microsoft.VisualBasic.Mid(Lines_Выбранный_Знак(bytNumber), 5, 1)
 
        'И тут ещё очень много текста
        '
        '
 
    End Sub

If bytНомерЗнака = 12 Then
            Dim path_Выбранный_Знак As String = Application.StartupPath & "\Resources\Text\Zaraev\(12)Рыбы.txt"
            Dim Lines_Выбранный_Знак() As String = IO.File.ReadAllLines(path_Выбранный_Знак, System.Text.Encoding.Default)
        End If

If "условие" Then ...
else if ... Then ...
else if ... Then ...
else if ... Then ...
else if ... Then ...
End if

If bytНомерЗнака = 11 Then
            Dim path_Выбранный_Знак As String = Application.StartupPath & "\Resources\Text\Zaraev\(11)Водолей.txt"
            Dim Lines_Выбранный_Знак() As String = IO.File.ReadAllLines(path_Выбранный_Знак, System.Text.Encoding.Default)
 
            'Жирный и нежирный
            strMassFontBold = Microsoft.VisualBasic.Mid(Lines_Выбранный_Знак(bytNumber), 5, 1)
 
            'И тут ещё очень много текста
            '
            '
        End If
      
 
 
 
        If bytНомерЗнака = 12 Then
            Dim path_Выбранный_Знак As String = Application.StartupPath & "\Resources\Text\Zaraev\(12)Рыбы.txt"
            Dim Lines_Выбранный_Знак() As String = IO.File.ReadAllLines(path_Выбранный_Знак, System.Text.Encoding.Default)
 
            'Жирный и нежирный
            strMassFontBold = Microsoft.VisualBasic.Mid(Lines_Выбранный_Знак(bytNumber), 5, 1)
 
            'И тут ещё очень много текста
            '
            '
        End If

Public Class frmMain
 
Dim path_Выбранный_Знак As String
Dim Lines_Выбранный_Знак() As String
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
If bytНомерЗнака = 12 Then
            path_Выбранный_Знак = Application.StartupPath & "\Resources\Text\Zaraev\(12)Рыбы.txt"
            Lines_Выбранный_Знак = IO.File.ReadAllLines(path_Выбранный_Знак, System.Text.Encoding.Default)
        End If
 
 
        'Жирный и нежирный
        strMassFontBold = Microsoft.VisualBasic.Mid(Lines_Выбранный_Знак(bytNumber), 5, 1)
 
        'И тут ещё очень много текста
        '
        '
 
End Sub
 
 
End Class