bugfix: Position 0 for Mid()

Author: KlausBlum

extension/OOoLilyPond/LilyPond.xba

@@ -297,8 +297,8 @@ Sub ParseOutput(sFile as String)
 		If isArray(vArray) Then
 			If UBound(vArray)>=(LBound(vArray)+4+iWinComp) Then		
 				iStartPos = Len (vArray(LBound(vArray)+iWinComp)) - iNameLength
-				if iStartPos < 0 Then  ' make sure that arguments for Mid(...) are valid
-					iStartPos = 0
+				if iStartPos < 1 Then  ' make sure that arguments for Mid(...) are valid
+					iStartPos = 1
 				End If
 				If Mid (vArray(LBound(vArray)+iWinComp), iStartPos) = constOLyFileName & ".ly" Then
 					iNErr = iNErr + 1