VBA Trueを指定すると別の値を追加する

Question

私はVBAを学ぶ過程にあるので、とても新しいです。私はちょうどコードを使って練習や練習をするためのサイコロゲームを作っています。私は彼が持っている金額からユーザーが賭ける金額を加算または減算する方法を見つけようとしています。だから、彼がサイコロに近づくと推測すれば、彼は勝ち、彼が賭けた金額に勝ち、彼のバランスに追加されるだろう。私の問題は、残高から賭け金を加算または減算する方法を理解しようとしていることです。私は、プレーヤーが勝利を勝ち取ったかどうか、彼が残高から減算を失ったかどうかを示すIf文を使用しようとしています。 VBAでこれを行う最善の方法は何ですか？あなたが提供するお手伝いをありがとう。

Sub CommandButton1_Click() 
Dim bet As Integer 
Dim balance As Integer 
Dim player As Integer 
Dim computer As Integer 

bet = Range("B11").Value 
balance = Range("A14").Value 
player = Range("A19").Value 
computer = Range("L19").Value 
Range("D14").Value = 5000 

Beep 

If bet < balance Then Worksheets(1).Calculate 
If player < computer Then MsgBox "You Won!" 
If player > computer Then MsgBox "You Lost!" 
If player = computer Then MsgBox "It's a Tie!" 

If player < computer Then Range("D14").Value bet 

If player > computer Then 

End Sub 

Game and Code

編集：追加コード

Answer 1

If player < computer Then Range("D14").Value = Range("D14").Value + bet 

If player > computer Then Range("D14").Value = Range("D14").Value - bet 

またはあなたが使用して、あなたが求めているもののリターンを使用することができ、この

Beep 

If bet < balance Then Worksheets(1).Calculate 
If player < computer Then MsgBox "You Won!": Range("D14").Value = Range("D14").Value + bet 
If player > computer Then MsgBox "You Lost!": Range("D14").Value = Range("D14").Value - bet 
If player = computer Then MsgBox "It's a Tie!" 

End Sub 

Answer 2

に面積を変えることができますIIFのようなもの

if Computer<>Player then Range("D14").Value=Range("D14").Value + iif(Player>Computer,(0-dblStake),Stake‌​)