こんばんは。詳しい方々がいらっしゃるので是非私にも教えてください。
セルのA1に11：11と入っています。
11:11からその時間は何秒か計算を出したいと思います。

USER FORMはCOMMAND BUTTON と　TEXTBOXが一つずつあります。

COMMAND BUTTONに

Private Sub CommandButton1_Click()
Dim a As Integer
a = ActiveSheet.Cells(1, 1)
TextBox1 = (Hour(a) * 3600) + (Minute(a) * 60)
End Sub

と入れました。

TEXTBOXに秒に換算した「40260」と表示してほしいのですが、「0」
が表示されます。

初心者なもので申し訳ありません。
ご指導宜しくお願いします。