wo ist mein Fehler???

Sub EingabeUeberpruefenGewichteFlaechePreiseErrechnen()
Dim i As Variant,o As Object, a, s&, z&
Set o = CreateObject("scripting.dictionary")
a = Worksheets("€RohrB36.19").Range("A1").CurrentRegion
For i = 11 To Cells(Rows.Count, "D").End(xlUp).Row
If Cells(i, "O") = "ASME B36.19" Then
For z = 2 To UBound(a)
For s = 2 To UBound(a, 2)
o(a(z, 1) & "|" & a(1, s)) = a(z, s)
Next
Next
z = Cells(i, "F").Value: s = Cells(i, "M").Value     ' hier halt die Werte von  _
irgendwoher...
MsgBox "Der Wert für z = " & z & " / s = " & s & vbLf _
& " = " & o(z & "|" & s)
Cells(i, "R").Value = o(z & "|" & s)
z = 1
End If
Next i
Application.EnableEvents = False
End Sub