예를 들면 111+5 가 입력일 경우

dim a
dim intA, intB
dim strInput as string

strInput = txtInput.text '<= textbox 의 내용( 111+5 ).

a = instr(strinput, "+") '<= 문자중 "+"가 나오는 자리수가 입력됨.( 4 )

intA = left#(strinput,a-1) '<= intA에 "111" 이 들어감...

.....이하 생략..
intB 는 strInput의 전체 길이를 구한 다음, mid 함수나 right 함수를 사용해서
구할 수 있겠죠...


----------------------------------------------------------------------------------------

InStr 함수:
한 문자열 안에 특정 문자열이 처음으로 발생한 위치를 Variant(Long)값으로 반환합니다.

구문:
InStr([start, ]string1, string2[, compare])

InStr 함수 구문은 다음과 같은 인수로 되어 있습니다.

구성 요소 / 설명
start / 선택. 검색 시 시작 위치를 의미하는 숫자 식임. 지정되지 않으면 첫 문자에서 검색이 시작. start 가 Null값을 포함하면 오류가 발생. Compare 값이 지정되면 start 인수는 필수가 됨.

String1 / 필수. 검색되는 문자열 식.
String2 / 필수. 찾고자 하는 문자열 식.
Compare / 선택. 문자열 비교 형식을 지정함. Compare 인수는 0, 1, 2 또는 지정을 안 해도 됨. 0(기본값)으로 지정되면이진 비교가 시행됨. 1로 지정되면 문자 비교(대/소문자 구분)가 시행됨. 2 로 지정되면 사용자 데이터베이스에 포함된 정보에 근거한 비교가 이루어짐(Microsoft Access에 한함). Compare 값이 Null일 경우 오류가 발생함. Compare 값이 지정되지 않을 경우, Option Compare 설정 값이 행해지는 비교 유형을 결정함.

반환값:

조건 / InStr 반환값
string1 길이는 0 / 0
string1이 Null / Null
string2 길이가 0 / start
string2가 Null / Null
string2가 발견되지 않음 / 0
string2가 string1 내에서 발견 / 일치된 지점의 위치
start > string2 / 0

참고:
InStrB 함수는 문자열 내에 포함된 바이트 정보에 이용됩니다. InStrB 함수는 한 문자열 내의 특정 문자열의 첫 발생 문자 지점을 반환하지 않고 바이트 위치를 반환합니다.

InStr 함수 예제:
다음은 InStr 함수를 사용하여 주어진 문자열 내에서 사용자가 지정된 문자열이 최초로 나타나는 지점을 찾아내는 예제입니다.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP" ' 찾을 문자열.

SearchChar = "P" ' "P" 찾기.

MyPos = Instr(4, SearchString, SearchChar, 1) ' 4 위치에서 텍스트 비교 시작. 6을 반환합니다.

MyPos = Instr(1, SearchString, SearchChar, 0) ' 1 위치에서 이진 비교 시작. 9를 반환합니다.

' 비교는 기본값으로 이진법(마지막 인수는 생략).

MyPos = Instr(SearchString, SearchChar) ' 9를 반환합니다.

MyPos = Instr(1, SearchString, "W") ' 0을 반환합니다.

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' 찾을 문자열
SearchChar = "P"   ' "P" 찾습니다.

' 4 위치에서 텍스트 비교를 시작합니다. 6을 반환합니다.
MyPos = Instr(4, SearchString, SearchChar, 1)   

' 1 위치에서 이진 비교를 시작합니다. 9를 반환합니다.
MyPos = Instr(1, SearchString, SearchChar, 0)

' 비교는 기본값으로 이진법(마지막 인수 생략)
MyPos = Instr(SearchString, SearchChar)   ' 9를 반환합니다.

MyPos = Instr(1, SearchString, "W")   ' 0을 반환합니다.