Attribute VB_Name = "testsub5"
Sub テスト()
    Dim kekka As String

    kekka = hantei(75)
    Range("A1").Value = kekka
    
    kekka = hantei(92)
    Range("A2").Value = kekka
    
End Sub

Function hantei(ByVal tokuten As Integer) As String

    Dim kekka As String

    If tokuten >= 80 Then
        kekka = "合格"
    Else
        kekka = "不合格"
    End If

    hantei = kekka

End Function