とりあえず 
 
Dim hhh, mmm, sss As String 
Dim s As New TimeSpan(5, 100, 1000) 
sss = s.Seconds.ToString 
mmm = s.Minutes.ToString 
hhh = s.Hours.ToString 
MsgBox(hhh & "時間" & mmm & "分" & sss & "秒") 
 
と、バラバラにしたら出来ましたがこんなんでいいものかどうか・・・ 
こんどはDate型に変換するにはどうすればいいのかで頭が痛いです