クラスを作ってみる

Public Class ListString
    Private str As String = ""

    Sub New(ByVal Name As String)
        Me.str = Name
    End Sub

    Public Property Name() As String
        Get
            Return str
        End Get
        Set(ByVal value As String)
            str = value
        End Set
    End Property

    Public Function Head()
        Return str.Substring(0, 1)
    End Function

    Public Function Tail()
        Return str.Substring(1)
    End Function

End Class

Module Module1
    Public Sub Main()
        Dim str As ListString = New ListString("0123456789")
        System.Console.WriteLine(str.Name)
        System.Console.WriteLine(str.Head)
        System.Console.WriteLine(str.Tail)
        str.Name = "abcdefg"
        System.Console.WriteLine(str.Name)
        System.Console.WriteLine(str.Head)
        System.Console.WriteLine(str.Tail)
    End Sub 'Main
End Module

> ./console
0123456789
0
123456789
abcdefg
a
bcdefg