Module Program
Sub Main()
Dim interiorColor As String = "White"
Dim exteriorColor As String = "Blue"
Dim car1 As XElement = _
<%= GetPetName() %>
<%= interiorColor %>
<%= exteriorColor %>
Console.WriteLine(car1)
End Sub
Function GetPetName() As String
Return "Sidd"
End Function
End Module