Imports System

Public Module Module1

    Public Sub Main()

        dim dbl as double = 0

        dim str as string = "42"

        dbl = str

        Console.WriteLine(dbl)

    End Sub

End Module