Cut String from Label

DateTime dt = Convert.ToDateTime(lblDate.Text);
lblYear.Text = dt.Year;
lblMonth.Text = dt.Month;
lblDate.Text = dt.Date;

lblYear.Text = lblDateTime.Text.Substring(0,4);
lblMonth.Text = lblDateTime.Text.Substring(5,2);
lblDate.Text = lblDateTime.Text.Substring(8,2);

Module Module1

    Sub Main()
    ' The file system path we need to split
    Dim s As String = "C:\Users\Sam\Documents\Perls\Main"

    ' Split the string on the backslash character
    Dim parts As String() = s.Split(New Char() {"\"c})

    ' Loop through result strings with For Each
    Dim part As String
    For Each part In parts
        Console.WriteLine(part)
    Next
    End Sub

End Module

Output

C:
Users
Sam
Documents
Perls
Main

Label2.Text =  Label1.Text.Substring(0, 4)
Label3.Text =  Label1.Text.Substring(5, 2)
Label4.Text =  Label1.Text.Substring(8, 2)