VB EvaluasiTipeData

 Module EvaluasiTipeData

    'Buka EvaluasiTipeData.vbproj

    Sub Main()

        Dim testVarType As VariantType

        testVarType = Nothing

        Debug.Print("Tipe variabel = " & VarType(testVarType))

        testVarType = ""

        Debug.Print("Tipe variabel = " & VarType(testVarType))

        testVarType = 12345

        Debug.Print("Tipe variabel = " & VarType(testVarType))

        testVarType = 12345.678

        Debug.Print("Tipe variabel = " & VarType(testVarType))

        testVarType = "Visual Basic"

        Debug.Print("Tipe variabel = " & VarType(testVarType))

        testVarType = #8/1/1973#

        Debug.Print("Tipe variabel = " & VarType(testVarType))

    End Sub

End Module