Imports System

​

Public Class Program

    Public Shared Sub Main()

        Dim n1 As Double = 0, n2 As Double = 0, r As Double = 0

    End Sub

End Class

​