Function Sheet_Get(Str_Eng, Str_Data)
	   If Not(Str_Data="" Or IsNull(Str_Data)) Then 
	   	   Sheet_No = Instr(str_Eng,Str_Data)-1
	   	   Select Case Sheet_No
	   	   Case 0
	   	   	   Sheet_Get="0"
	   	   Case 1
	   	   	   Sheet_Get="1"
	   	   Case 2
	   	   	   Sheet_Get="2"
	   	   Case 3
	   	   	   Sheet_Get="3"
	   	   Case 4
	   	   	   Sheet_Get="4"
	   	   Case 5
	   	   	   Sheet_Get="5"
	   	   Case 6
	   	   End Select 
	   Else
	   	   Sheet_Get =""
	   End If 
End Function



1번 : 
Str_Line = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
' SheetRS는 엑셀 RecordSet
' Str_Data : 엑셀 행 입력값

ex) Str_Data="Z"
A_Data = SheetRS(abs(Sheet_Get(Str_Line, Str_Data)))
결과값 : 25


2번 : Str_Line = 
"ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABB
BCBDBEBFBGBH"
Str_Data="BB" 로 했을 경우 53으로 결과값이 나오게 하려고 하는데 방법이 없을까요?

A~Z까지는 1번처럼 하면 문제가 없는데 A~BH 행 값의 해당 숫자를 가지고 오려고 하는데 안되네요. ㅠㅠ

고수님의 자문을 부탁드립니다