엑셀 매크로 VBA 나의 함수 tr_InStr_2글자(

Function tr_InStr_2글자(ostr As String, findstr As String)

  If InStr(ostr, Mid(findstr, 1, 1)) > 0 And Mid(ostr, Mid(findstr, 1, 1) + 1, 1) = Mid(findstr, 2, 1) Then

    tr_instr = findstr

  Else

    tr_instr = ""

  End If

End Function

.