Habe es jetzt erst einmal so gemacht, finde die Lösung aber alles andere als schön.

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