have a function return multiple values

[mtnDew]

i want this function to return multiple values. I thought I was on track but i'm stuck. any help would be great. thank

Private Function get_offense(ByVal a As Double, ByVal b As Double, ByVal c As Double)

'Dim road As String
Dim road_conv As Double
'Dim home As String
Dim home_conv As Double
'Dim total As Double
Dim total_conv As Double

' get offense road value
Try
a = InputBox("Enter the offense road value", "Input Required", "0")
If a = "" Then
Exit Try
End If
road_conv = CDbl(a)
Catch ex As Exception

End Try

' get offense home value
Try
b = InputBox("Enter the offense home value", "Input Required", "0")
If b = "" Then
Exit Try
End If
home_conv = CDbl(b)
Catch ex As Exception

End Try

'get offense total value
Try
c = InputBox("Enter the offense total value", "Input Required", "0")
If c = "" Then
Exit Try
End If
total_conv = CDbl(c)
Catch ex As Exception

End Try


Return (road_conv)
Return (home_conv)
Return (total_conv)
End Function