Module Example
Public Sub Main()
Dim numbers() As Double = {100, 500, 1000, Double.MaxValue}
For Each number As Double In numbers
Console.WriteLine("The natural log of {0} is {1}.", _
number, Math.Log10(number))
Next
End Sub
End Module