MessageBox

[Slisse]

Als ik een variabele als integer declareer dan is dat een geheel getal.
Indien ik een decimaal getal (bv 9,58) ingeef in het tekstvak waaruit ik die variabele haal dan geeft het programma geen foutmelding maar gebruikt enkel het gehele stuk van mijn getal om verder mee te werken.
Nu had ik graag via een MessageBox een foutmelding gegeven indien er geen geheel getal is ingegeven in het tekstvak. Dit bv via Try - Catch ex As (hier weet ik niet meer wat ik moet invullen om dit te controleren) of If mijnGetal <> geheelGetal Then MessageBox.show ...
Is er voor de 2 mogelijkheden een oplossing? Of moet ik misschien nog een andere methode gebruiken?
Graag jullie mening.

Groeten van een beginnend VB studentje.

 

[MDN111]

Function IsThisStringAnInteger(ByVal cString As String) As Boolean
IsThisStringAnInteger = IsNumeric(cString) And (Int(Val(cString)) = Val(cString))
End Function