Public Type aMatrix
    lC As Long
    iX As String
    iY As String
End Type
 
Function fAnalyse(iBildX As Integer, iBildY As Integer, iRaster As Integer) As _
  aMatrix
Dim iXSegmente, iYSegmente, i, i2 As Integer
Dim iSegment As Long
Dim uMatrix(100) As aMatrix
Dim iMessage As String
    iXSegmente = Round(iBildX / iRaster, 0)
    iYSegmente = Round(iBildY / iRaster, 0)
    iSegment = 0
    For i = 0 To iXSegmente - 1
        For i2 = 0 To iYSegmente - 1
            uMatrix(iSegment).lC = iSegment
            uMatrix(iSegment).iX = i * iRaster & "," & i2 * iRaster
            uMatrix(iSegment).iY = (i + 1) * iRaster & "," & (i2 + 1) * iRaster
            iMessage = iMessage & "Segment: " & uMatrix(iSegment).lC & "=" & _
              uMatrix(iSegment).iX & "-" & uMatrix(iSegment).iY & vbCrLf
            iSegment = iSegment + 1
        Next
    Next
    MsgBox iMessage
End Function