Imports System Public Class MainClass Shared Sub Main() 'Declare variable Dim strData As String strData = "string value" 'Display the length of the string System.Console.WriteLine(strData.Length & " character(s)") End Sub End Class