VBA) 변수명을 텍스트 조합으로 호출할 수 있는 방법이 있을까요?

@원조백수 님 번거롭게 해드려서 죄송합니다 ! (_ _ )

이런식의 표가 있다면

상 중 하 에 따라서 각각 상그룹 , 중그룹 , 하그룹 배열에 넣고 싶은데
이걸 지금 하고잇는 방식은.

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

등급 = ActiveSheet.Range("A1:A13")
값 = ActiveSheet.Range("B1:B13")
배열길이 = 등급.Cells.Count

ReDim 상그룹(배열길이)
ReDim 중그룹(배열길이)
ReDim 하그룹(배열길이)

상그룹위치 = 0
중그룹위치 = 0
하그룹위치 = 0

For i = 1 To 배열길이
If 등급(i) = "상" Then
상그룹위치 = 상그룹위치 + 1
상(상그룹위치) = 값(i)
End If

If 등급(i) = "중" Then
중그룹위치 = 중그룹위치 + 1
증(중그룹위치) = 값(i)
End If

If 등급(i) = "하" Then
하그룹위치 = 하그룹위치 + 1
하(하그룹위치) = 값(i)
End If

Next i

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

위 구문처럼 , 각 케이스 별로 등급 값을 체크해서 배열에 직접 넣어주고 있는데 이걸,

등급 = ActiveSheet.Range("A1:A13")
값 = ActiveSheet.Range("B1:B13")
배열길이 = 등급.Cells.Count

ReDim 상그룹(배열길이)
ReDim 중그룹(배열길이)
ReDim 하그룹(배열길이)

상그룹위치 = 0
중그룹위치 = 0
하그룹위치 = 0

For i = 1 To 배열길이

등급(i)(등급(i) & 그룹위치) = 값(i)

Next i

이런식으로 ...;ㅅ; 가져온 값들을 조합해서 , 변수에 접근할 수 있는 방법이 있는지...가 ! 궁금했습니다.

다시 한번 번거롭게해드려서 죄송합니다 (_ _)