....
   If xval = yval Then
      ' Zu vergleichende Strings hinter erster Zahl
      Dim xSubStr As String = x.Substring(xPos1 + xnumber1.Length)
      Dim ySubStr As String = y.Substring(yPos1 + yNumber1.Length)
 
      Compare(xSubstr, ySubstr)
 
....