急！！！求指导

EXCEL中的VB
Sub test()
    Application.ScreenUpdating = False
    p = "F:\360data\重要数据\桌面\过磅单打印\韩未\3\"
    f = Dir(p & "*.xls")
    m = ThisWorkbook.Name
    Do While f <> ""
        If f <> m Then
            Set w = Workbooks.Open(p & f)
            w.Sheets(1).Range("R9") = "天美建材"
            w.Close True
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

w.Sheets(1).Range("R9") = "天美建材"  我想把EXCEL中R9的数值改成原数值+10000
这个怎么操作  求指导万分感激 --------------------编程问答--------------------

If f <> m Then

            Set w = Workbooks.Open(p & f)

            'w.Sheets(1).Range("R9") = "ÌìÃÀ½¨²Ä"

              If (Application.WorksheetFunction.IsNumber(w.Sheets(1).Range("R9"))) Then

              w.Sheets(1).Range("R9") = w.Sheets(1).Range("R9") + 10000

              End If

            w.Close True

            

        End If

--------------------编程问答-------------------- 先判断是否为数字，是的话加10000，不是的话什么也不做。

补充：VB ,  VBA