Imports System.Windows.Forms ' Namespace containing MessageBox
Module modSquareRoot
Sub Main()
Dim root As Double = Math.Sqrt(2)
MessageBox.Show("The square root of 2 is " & root, _
"The Square Root of 2")
End Sub
End Module