Module Module1
Function GetBookPrice() As Double
GetBookPrice = 49.99
End Function
Function GetBookTitle() As String
GetBookTitle = "Title"
End Function
Sub Main()
Dim Price As Double
Dim Title As String
Price = GetBookPrice()
Title = GetBookTitle()
Console.WriteLine(Price)
Console.WriteLine(Title)
End Sub
End Module
|