For J = 0 To WULog.Count - 1 If WULog(J).SubMatches(0)=Lines(I).SubMatches(0) And WULog(J).SubMatches(1)=Lines(I).SubMatches(1) Then C(k, 4) = WULog(J).SubMatches(5) C(k, 5) = WULog(J).SubMatches(2) C(k, 9) = WULog(J).SubMatches(3) C(k, 10) = WULog(J).SubMatches(4) Exit For End If Next k = k+1 n(slot-1) = 0 sum(slot-1) = 0 ElseIf Left( Mes ,2) = "Re" Then 'Resetting slot=CutOut(Mes,"#",".") n(slot-1) = 0 sum(slot-1) = 0 End If Next
Function CutOut(str,istr,estr) CutOut = Mid(str, InStr(str,istr)+Len(istr), InStr(str,estr)-InStr(str,istr)-Len(istr) ) End Function