Sub o() M = Range("B4") ' M=ABCDEFG C = Left(M, 1) ' C=A C2 = Left(M, 2) ' C2=AB C3 = Right(M, 1) ' C3=G C4 = Right(M, 3) ' C4=EFG C5 = Mid(M, 2, 3) ' C5=BCD strHin = Range("C4") ' strHin=A1-AB-CD-DF MJ = "CD" N = InStr(strHin, MJ) ' N=7 strHin2 = Range("C5") ' strHin2=A1`A3 MJ2 = "`" N1 = InStr(strHin2, MJ2) ' N1=3 S = Left(strHin2, N1 - 1) ' S=A1 strHin3 = Range("C6") ' strHin3=A10`A4 MJ3 = "`" N2 = InStr(strHin3, MJ3) ' N2=4 S2 = Left(strHin3, N2 - 1) ' S2=A10 M2 = Range("B8") ' M2=NK-12345 strOb = "-" Point = Application.WorksheetFunction.Find(strOb, M2) ' Point=3 If Point = 2 Then K = Left(M2, 1) If Point = 3 Then K = Left(M2, 2) ' K=NK End Sub