変数の宣言箇所を間違えているのではないでしょうか。
実際のコードと VB のバージョンを教えてください。

Dim a As Integer = 123

'① 

If a > 100 Then

    Dim b As Integer = 345

    '② 

Else

    Dim c As Integer = 567

    '③ 

End If

Dim d As Integer = 789

'④ 

たとえば上記の場合、それぞれの箇所で
このような動作になります。

① 変数 a が使える。b, c, d は利用できない。
② 変数 a, b が使える。c, d は利用できない。
③ 変数 a, c が使える。b, d は利用できない。
④ 変数 a, d が使える。b, c は利用できない。