You're missing .xls in your workbook name.
You coud simplify with
[VBA]
Dim tmp as Variant
tmp = Workbooks("Outlier.xls").Sheets("Spreadsheet").Range("vo_a").Value
If IsNumeric(tmp) Then vo_a = tmp

[/VBA]