Puoi fare in 2 modi:

o sfrutti la variabile MyStrTmp e quindi avrai:
codice:
tmptrascorso = Time - MyStrTmp
MyOre= Format(tmptrascorso, "hh")
MyMin= Format(tmptrascorso, "nn")
MySec= Format(tmptrascorso, "ss")
oppure se vuoi usare il textbox:
codice:
tmpinTextBox = Text1.Text
MyOre = Left(Text1.Text,2)
MyMin = Mid(Text1.Text,4,2)
MySec = Right(Text1.Text,2)