'以下のサンプルコードは、セルA1, A2のフォーマットを G/標準"才" にしてから試してください。

Sub test_values()
    'セルに直接値が埋め込まれている場合について結果を調べる
    '(各行の行コメントは、その行での出力結果)
    
    Range("A1").Value = 30
    
    Debug.Print Range("A1").Text        '30才 (文字列)
    
    Debug.Print Range("A1").Value       '30 (数値)
    Debug.Print Range("A1").Value2      '30 (数値)
    
    
    Debug.Print Range("A1").Formula     '30 (文字列)
    Debug.Print Range("A1").Formula2    '30 (文字列)
    Debug.Print Range("A1").FormulaR1C1 '30 (文字列)

    Debug.Print Range("A1") '30 (数値)
End Sub

Sub test_formulass()
    'セルに式が埋め込まれている場合について結果を調べる
    '(各行の行コメントは、その行での出力結果)
    
    Range("A4").Value = 20
    Range("A5").Value = 15
    Range("A2").Value = "=A4 + A5"
    
    Debug.Print Range("A2").Text        '35才 (文字列)
    
    Debug.Print Range("A2").Value       '35 (数値)
    Debug.Print Range("A2").Value2      '35 (数値)
    
    
    Debug.Print Range("A2").Formula     '=A4 + A5 (文字列)
    Debug.Print Range("A2").Formula2    '=A4 + A5 (文字列)
    Debug.Print Range("A2").FormulaR1C1 '=R[2]C + R[3]C (文字列)

    Debug.Print Range("A2") '35
End Sub