[2005] how to format as integer

[.paul.]

check it first with integer.tryparse

if integer.tryparse(ctype(math.round(ctype(TextBox1.Text, decimal)), integer), number) then
   number = ctype(math.round(ctype(TextBox1.Text, decimal)), integer)
end if

[Icyculyr]

1.00 is a decimal, not an integer..

Dim myDecimal As Decimal = 1.57
If Decimal.TryParse(TextBox1.Text, myDecimal) Then
    myDecimal = Math.Round(myDecimal)
    MsgBox("Success")
Else
    MsgBox("Failure")
End If