セルの時間を秒で表す

こんばんは。詳しい方々がいらっしゃるので是非私にも教えてください。
セルの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」
が表示されます。

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

Excel VBAならそう書きましょう。
セルの書式を標準にして現れる数字が何かを調べましょう。
そうすると、

Dim a As Integer
が原因というのが判ると思います。

ヒント：日付型

#ついでに、既定のプロパティを省略するのはお勧めできません。暗黙の何たらかんたらで、
小さな親切大きなお世話ってのもありますから、バグの元です。

早速親切なご回答ありがとうございます。
日付型ですね！早速調べてみます。
ちなみに使っているのはvbaです！