一个关于excel vba的有关问题

一个关于excel vba的问题
excel的一列存放着这样的数据5:00,6:00,7:20,12:30等等这样的数据，其实是表示时间的，现在想把所有这些数据转化成秒，比如7:20就是7小时20分钟，也就是7*3600+20*60，请给出vba代码，多谢！不知道取子串用什么函数

------解决方案--------------------------------------------------------
Dim a
a = Split(Cells(1, 1), ": ")
secondtime = 3600 * a(0) + 60 * a(1)
MsgBox secondtime
------解决方案--------------------------------------------------------
假如A列存放上述数据：
Sub Zhuanhua()
Dim i As Integer
For i = 1 To [a1].End(xlDown).Row
Cells(i, 1).Offset(0, 1) = Hour(Cells(i, 1)) * 3600 + Minute(Cells(i, 1)) * 60 + Second(Cells(i, 1))
Next
End Sub