急!!如何製作計算機中的小數點(編號：8830)

我是vb6.0的初學者，現正製作一個計算機，在製作小數點按鍵時遇到問題。我的程式如下：
Label1.Caption=Label1.Caption+"."
end sub
還要再加那些程式，計算機才不會出現第二個小數點，望請各位高手給予解答，感激不盡，謝謝！