Imports System

Public Module Module1

    Public Sub Main()

        DIm MyString as String = "This is my string"

        Dim stringLength As Integer

        MyString = "how long is this string"

        stringLength = MyString.Length

        Console.Writeline(stringLength)

    End Sub

End Module