DateTimePicker взять время с текстового файла

DateTimePicker2.Format = DateTimePickerFormat.Custom
DateTimePicker2.CustomFormat = "HH:mm"
DateTimePicker2.ShowUpDown = True
 
Dim Line As String = File.ReadLines("D:\1.txt").Skip(0).First()
Dim finalstr As String = secondLine.Substring(Line.IndexOf(":") + 1)
DateTimePicker2.Value = finalstr

DateTimePicker2.Format = DateTimePickerFormat.Custom
DateTimePicker2.CustomFormat = "HH:mm"
DateTimePicker2.ShowUpDown = True
 
Dim Line As String = File.ReadLines("D:\1.txt").Skip(0).First()
Dim finalstr As String = Line.Substring(Line.IndexOf(":") + 1)
DateTimePicker2.Value = finalstr

Dim finalstr As Date = Cdate(Line.Substring(Line.IndexOf(":") + 1)

DateTimePicker2.Text = finalstr

 Dim secondLine As String = File.ReadLines(FullPathIni).Skip(0).First()
        Dim finalstr As String = secondLine.Substring(secondLine.IndexOf(":") + 1)
        DateTimePicker2.Format = DateTimePickerFormat.Custom
        DateTimePicker2.CustomFormat = "HH:mm"
        DateTimePicker2.ShowUpDown = True
        Dim dateTimeParsed As Date = Nothing
        If Date.TryParse(finalstr, dateTimeParsed) Then
            DateTimePicker2.Value = dateTimeParsed
        Else
            ' Обработка ошибок
        End If

Dim YourHour As String = "01"
Dim YourMinute As String = "30"
Dim YourSecond As String = "00"
 
Dim dtpDateTime As DateTime = New DateTime(Now.Year, Now.Month, Now.Day, CInt(YourHour), CInt(YourMinute), CInt(YourSecond))
 
DateTimePicker2.Value = dtpDateTime