Gegevens: code

Als de invoer een getal is, kan het een geheel getal zijn. In dat geval is het een Integer of een Long als het binnen de grenzen van die variabelen zit.
If IsNumeric(txtInvoer.Text) Then
    lblIsgetal.Caption = "Getal"
    If Int(txtInvoer.Text) = txtInvoer.Text Then
        If txtInvoer.Text > -32769 And txtInvoer.Text < 32767 Then
            lblInteger.Caption = "Integer"
        Else
        lblInteger.Caption = "Geen integer"
    End If
    If txtInvoer.Text > -2147483649# And txtInvoer < 2147483648# Then
        lblLong.Caption = "Long"
    Else
        lblLong.Caption = "Geen Long"
    End If
    Else
    lblInteger.Caption = "Geen integer"
    lblLong.Caption = "Geen Long"
End If

lblDouble.Caption = "Double" 'Als het een getazl is, is het zeker een Double
Else
lblIsgetal.Caption = "Geen getal"
lblDouble.Caption = "Geen Double"
lblInteger.Caption = "Geen Integer"
lblLong.Caption = "Geen Long"
End If
If txtInvoer.Text = CStr(0) Then
lblNul.Caption = "Nul"
Else
lblNul.Caption = "Niet nul"
End If
If IsDate(txtInvoer.Text) Then
lblDate.Caption = "Datum"
Else
lblDate.Caption = "Geen datum"
End If