Problem i VBA

Hej,

Jeg er i gang med en opgave i VBA, som går ud på at kaste to terninger, hvor man vinder hvis man gætter øjenene på terningerne og taber hvis man ikke gør. Det man skal taste er indsats og gæt, og hvis man taber bliver indstatsen trukket fra bankbeholdingen og hvis man vinder bliver den lagt til. Mit problem er, at når man taber bliver indsatsen trukket fra bankbeholdningen som den skal, men når man vinder bliver bankbeholdningen = null. I den trejde sidste linje i koden herunder står der (nybank = bank + udfald), og det mærkelige er at f.eks bank = 500, udfald = -200, men nybank = emty. Nogle bud på hvad der er galt i koden.... 

Sub dd()

    valg = Range("h18").Value
    bet = Range("i18").Value
    bank = Range("h23").Value
   
    dice1 = Int((6 - 1 + 1) * rnd + 1)
    dice2 = Int((6 - 1 + 1) * rnd + 1)

    sumdice = dice1 + dice2
   
    If sumdice = valg Then
    udfald = sumdice * bet
    Else
    udfald = -bet
    nybank = bank + udfald
    End If
   
    Range("h23").Value = nybank
     
   
   
End Sub