'Primer 11: kontrola ulaza i konverzija tipova (IsNumeric, InStr, CInt)
'Radi ako su u Regional and Language Options izabrani formati za engleski
'(tada je '.' separator celog dela i decimala, a ',' separator hiljada. Npr. 12,345.67
'Ako su izabrani formati za srpski, tada '.' i ',' imaju obrnute uloge pa u proceduri
'treba zameniti InStr(ulaz, ".") sa InStr(ulaz, ",")
Sub kontrolaUlaza()
    Dim ulaz As String
    Dim realan As Double
    Dim ceo As Integer
    
    ulaz = InputBox("Unesite ceo broj iz intervala (-32768, 32767)")
    If IsNumeric(ulaz) Then
        If InStr(ulaz, ".") > 0 Then 'engleski
        'If InStr(ulaz, ".") > 0 Then 'srpski
            MsgBox "Uneli ste broj, ali on nije ceo. Greska!"
        Else
            MsgBox "Uneli ste ceo broj " & CInt(ulaz) & ". Sve je u redu."
        End If
    Else
        MsgBox "Ulaz nije broj"
    End If
    
End Sub