vba excel kalkulačka

[dorianGray]

Dobrý den dělám kalkulačku ve vba a teď si nevím rady,mám proměnou cislo typu double cislo=textbox1.text Vše mi funguje ale potřebuji ošetřit vadu že když do text boxu někdo například napíše textovy řetězec nebo nenapíše vůbec nic program skolabuje pokud bude potřeba hodím sem celý zdrojový kod. Děkuju všem za případné rady.

[Reklama]

[d1amond]

Kód: Vybrat vše

Private Sub TextBox1_Change()

If IsNumeric(TextBox1.Value) = True Then
    MsgBox "Je to číslo"
Else: MsgBox "Není to číslo"
End If

End Sub

Stačí to jak základ? Ještě bych tu hodnotu třeba přetypoval na Double. Ale to už je konkrétní řešení.