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