如何提取单元格中的数字，用做循环的变量。

“1 2 3 4 5 6 7 8 9 10 下一页 末页 共 112 页 每页 20 条记录 共 2239 条记录 ”
上面是temp表a28一个单元格的里内容，需要提取“共 112 页”中的数字做变量用，如何能方便快捷的实现呢？
1、希望能快速定位到有这组内容单元格，防止以后这行数据位置会有变化，现在是在a28格中。
2、提取出共多少页中的数字做变量用。
请老师帮忙，先表示感谢！！！

Sub test()
   Set c = Cells.Find("共*页", LookIn:=xlFormulas, LookAt:=xlPart)
   If Not c Is Nothing Then
       yy = InStr(c, "共")
       zz = InStr(yy, c, "页")
       MsgBox Trim(Mid(c, yy + 1, zz - yy - 1))
   End If
End Sub