Function Age(ByVal YourAge As Integer) As String
Select Case YourAge
Case Is < 18
Return("You are younger than 18! You are teen!")
Case 18 to 64
Return("You are older than 18 but younger than 65! You are adult!")
Case Is >= 65
Return("You are older than 65! You are old!")
End Select
End Function
Console.WriteLine(Age(48)) 'Output: You are older than 18 but younger than 65! You are adult!