Vb.net 从一个函数获取返回值到另一个子例程

我有下面的代码返回保费金额，但我不知道如何让它显示在另一个函数中。我想要将值输入的子程序只显示有关所选选项的文本，然后我需要显示基于这些结果计算的值

Function ProcessClaims(ClaimsList As claimsList, PremiumIn As Decimal) As Decimal
    Dim adjustedPremium, originalPremium As Decimal
    Dim declined As Decimal
    originalPremium = ClaimsList.claimValue * 100 \ 5
    If ClaimsList.claimValue <= 5000 And ClaimsList.isPersonalInjury = False Then
        adjustedPremium = originalPremium
    ElseIf ClaimsList.claimValue > 5000 And ClaimsList.claimValue <= 10000 And ClaimsList.isPersonalInjury = False Then
        adjustedPremium = originalPremium * 100 / 10
    ElseIf ClaimsList.claimValue > 10000 Or ClaimsList.isPersonalInjury = False Then
        adjustedPremium = -1.0
        declined = -1.0
    End If
    If adjustedPremium = -1.0 Then
        PremiumIn = declined
    Else
        PremiumIn = adjustedPremium
    End If
    Return PremiumIn
End Function

---

任何帮助都将不胜感激，谢谢你这很简单

显示结果的子/函数应定义为

Private Sub DisplayStuff(premiumInResult as decimal)
    'display the value premiumInResult in here
End Sub

你可以这样做，更清楚

Dim result As Decimal = ProcessClaims(yourClaimsList , yourPremiumIn)
DisplayStuff(result)

或

---

它较短但不太清晰，使调试更加困难

您问我们如何调用方法并使用返回值。这是编程101。你需要阅读初学者教程来学习基础知识，并在这里询问一些即使做了适当的研究也无法解决的难题。你能发布其他方法吗？这看起来像VB.NET代码？VBA有点不同。您不需要使用Return关键字，而是需要在End Function:ProcessClaims=PremiumIn之前的最后一行中这样发回信息——换句话说，将要传回的值分配给函数名。请注意，如果要传回一个对象，例如Excel.Range，则需要使用Set，但这里不是这样。这与VBA和VB.NET有什么关系？你是说，而不是说，你想从VBA代码中调用这个VB.NET方法吗？如果没有，请删除不相关的标签。

Displaystuff(ProcessClaims(yourClaimsList , yourPremiumIn))