Here go! and don't say I never gave you anything
Dim num As Double = CDbl(TextBox1.Text)
Dim mine As String
mine = CStr(num / 10)
If mine.IndexOf("." = -1 Then
MsgBox(mine & "hurray!"
Else
MsgBox(mine & "BOo"
End IfThat'l do donkey, that'l do
Mark
If you are unsure of forum etiquette check here faq796-2540
Thanks Zarcom. Let's see, that's the first time in say, 100 posts that I've trumped ya. Gee, made my day. Thanks for all the help Zarcom; no doubt you have made a difference to so many, saving time, etc... Gald you're around bud. Now if I can just man handle my double string problem, I'll be off and running.
Picky, picky. Is 0 considered a multiple of 10? How about -20
If MATH.ABS(Myvalue) > 9 andalso myvalue MOD 10 = 0 Then
'you're there
Else
'you're not there
End If
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.