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