как преобразовать формат стринг в формат времени?

Dim time1 As date
Dim time2 As Date
Dim totaltime As Date
Dim str As String


str = "SELECT Lessons.time FROM Lessons WHERE Lessons.id =" & i & ""
Data1.RecordSource = str
Data1.Refresh


time1 = Time
time2 = Text1.Text
totaltime = time2 - time1
Text5.Text = totaltime

как преобразовать формат стринг в формат времени? потому что так нельзя потому time2 = Text1.Text