Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Log( isDecimal("12.3"))
    Log (isDecimal("12"))
End Sub
Sub isDecimal (s As String) As Boolean
    Dim d As Double
    Dim i As Int
    Try
        d = s
        i = s
        If d-i > 0 Then
            Return True
        Else
            Return False   
        End If
       
    Catch
        Return False
    End Try
End Sub