Public Sub MainFunktion()
   
     Dim i(1 To 9, 1 To 9) As k_zahl
     
     For y = 1 To 9
         For x = 1 To 9
             Set i(x, y) = New k_zahl
         Next x
     Next y
     
     i(1, 1).schreibe_wert (11)
     Debug.Print i(1, 1).lese_wert()
     i(2, 3).schreibe_wert (23)
     Debug.Print i(2, 3).lese_wert()
 
 End Sub
 

So würde ich es in jeder anderen Programmiersprache ebenfalls lösen, sofern nicht spezielle Fuktionen zur Verfügung stehen, welche das dann im Endeffekt wahrscheinlich genauso machen. Was findest du daran nicht schön?