Sub sample0()
    Dim tokuten
    Dim hyouka
    
    tokuten = Range("g3").Value
    hyouka = Range("h3").Value
    
    ' If Range("g2").Value > 50 Then
    ' Range("h2").Value = "合格です"
    ' Else
    ' Range("h2").Value = "不合格です"
    
    If tokuten > 50 Then
    hyouka = "合格です"
    Else
    hyouka = "不合格です"
    
    End If
    
    '↓出力はこのようにします(プロパティの設定)
    Range("I2").Value = "なんとか"
    
    'よって、たとえば、こんな風にします。
    Range("I3").Value = hyouka

    '↓あるいは、こんな風にです
    If Range("g2").Value > 50 Then
        Range("I4").Value = "合格です"
    Else
        Range("I4").Value = "不合格です"
    End If
End Sub