Public Class clsLength
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose:  Returns the length of the string - including leading and trailing spaces
        '
        ' Syntax: 	string.Length
        '
        ' Parameter1: string - Required - String of which you want to know the length
        '
        ' Result: integer - Returns the number of characters in a string. 
        '
        ' Quick Example:    Dim strLengthExample As String = "     ABC     "
        ' Console.WriteLine(strLengthExample.Length) ' returns 13; spaces are counted
        '
        '****************************************************************************************
 
 
        Console.WriteLine("Example #1: string.Length ")
 
        Dim strLengthExample As String = "     ABC     "
 
        Console.WriteLine(strLengthExample.Length) ' returns 13; spaces are counted
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsLength As New clsLength
        myclsLength.Main()
 
 
 
    End Sub
 
End Module