Imports System
Public Module Module1
Public Sub Main()
Dim dblGradeAvg as double = 3.6
End Sub
End Module