Örnek : 
Private Sub Form_Load() 
Dim Maas As Integer 
DefInt A-C 
Oran% = 100 
A_sayı = 100 
B_sayı = Oran*A_sayı 
C_sayı = B_sayı + A_sayı – 1000 
Maas= 32767 
End Sub 
 

Eger burada tanımlanan degişkenlere daha büyük sayılar atanırsa overflow oluşur.
 

Long :
    Daha büyük bir aralıkta integer yani tamsayı tanımlamak için kullanabilecegimiz bir veri tipidir. Hafızada 4 byte yer kaplar. Kullanılabilecek uç degerler +2,147,483,647 ile -2,147,483,648 dir. Long tipinde bir degişken tanımlamak için DefLng bildirimini veya degişken sonunda & karakterini kullanabiliriz.

Örnek :
Private Sub Form_Load()
DefLng A-B
Bölüm=50000
cıkan&=600000
Kalan& = (cıkan / Bölüm ) * 10000
End Sub

Single :
    Tam sayı olmayan küsüratlı sayılar için kullanabilecegimiz bir veri tipidir. Kayan-noktalı sayı olarak isimlendirilir. Single tipindeki veriler bellekte 4 byte yer kaplarlar. Nekatif sayılar için alabilecegi aralık -3.402823E38 ile –1.401298E-45 ,pozitif sayılar için alabilecegi aralık 1.401298E-45 ile 3.402823E38 arasındadır.Single tipinde veri tanımlamak için DefSgn bildirimi veya degişken sonuna ! karakteri konur. 7 haneye kadar hassastır.Daha sonrası yuvarlatılır.

Örnek :
Private Sub Form_Load()
DefSgn A-B
Bölüm=50000
Cıkan!=600000
End Sub


Double :
    Visual Basic’te kullanılabilecek en büyük sayısal degerlerin veri tipidir. Hafızada 8 byte yer kaplarlar. 16 haneye kadar hassastırlar. Maximum alabilecegi degerler pozitif sayılar için 4.94065645841247E-324 ile 1.797693134862232E308 , nekatif sayılar için de -1.797693134862232E308 ile -4.94065645841247E-324 arasındadır. DefDbl bildirimi veya # sembölü ile double tipinde degişkenler tanımlanabilir

Örnek :
Private Sub Form_Load()
DefDbl A-K
Darı=50000
Bugday=600000
Arpa=340.56
End Sub

Currency : 
    Sayısal tipdeki veriler için tanımlanmış özel bir veri tipidir.Hafızada 8 byte yer kaplarlar. 4 hane ondalık kısmı olmak üzere toplam 19 haneden oluşur.(nokta hariç) Alabilecegi maximum degerler -922,337,203,685,477.5808 ile 922,337,203,685,477.5807 arasındadır. @ sembolü veya DefCur bildirimi ile Currency tipinde degişken’ler tanımlanabilirler. 

Örnek : 
Private Sub Form_Load() 
Dim Maas As Currency , Borc As Currency 
Maas = 500000000  
Borc = 68000000 
Zayi@ = 340000.56 
End Sub 
 
Date : 
    Tarih türündeki bilgileri kullanmak için oluşturulmuş bir veri tipidir. Hafızada 8 byte yer kaplarlar. 1 Ocak ile 31 Aralık 9999 arasındaki tarihleri kullanabilirsiniz. DefDate bildirisi ile tarih türünde degişkenler tanımlayabiliriz. 

Örnek : 
Private Sub Form_Load() 
Dim Dogum_tarihi As Date , Evlenme_Tarihi As Date 
Dogum_tarihi =#Dec,9,1977# 
Evlenme_Tarihi=#May,15,1998# 
End Sub 
 

Boolean : 
    Mantıksal veri tipleri için kullanılır. İki seçenekten birisini alabilir.Bunlar True veya False degerleridir. Bellekte 2 byte yer işgal ederler.Boolean tipindeki bir degişkeni tanımlamak için DefBool sözcügü kullanılır. 

 
Örnek : 
Private Sub Form_Load() 
Dim Durum As Boolean , Duyum As Boolean 
Durum = True 
Duyum = False 
End Sub 
 

Byte : 
    O ile 255 arasındaki tamsayıları ifade etmek için kullanılabilecek veri tipidir.DefByte deyimi ile byte tipinde degişkenler tanımlanabilir. 

 
Örnek : 
Private Sub Form_Load() 
Dim Durum As Byte , Duyum As Byte 
Durum =23 
Duyum = 143 
End Sub 
String : 
    Metin türü bilgileri saklamak için kullanılabilecek veri türüdür. 16 bitlik versiyonda 0 ile 65538 arasında , 32 bitlik versiyonda ise 0 ile 2,000,000,000 arasında karakter alabilir. String türünde degişken tanımlamak için Defstr veya $ sembolü kullanılır. 

Örnek : 
Private Sub Form_Load() 
Dim Adi As String , Soyadi As String 
Adı =”Kemal” 
Soyadı = ”Tas” 
No$="1323970067" 
End Sub 
 

Variant : 
Bu tipte tanımlanmış bir degişkene herhangi bir tip’te veri yüklenebilir.Yani ne tür bir veri girecegimizi bilmedigimiz degişkenleri Variant tipinde tanımlamalıyız. Bu tür degişkenler hafızada 16 byte tan fazla yer kaplarlar. DefVar bildiri sözcügü ile Variant türünde degişkenler tanımlıyabiliriz. 
Variant türünde degişkenler tanımlamak fazla kullanışlı degildir.Çünki hafızada fazla yer kaplarlar. 
Örnek : 
Private Sub Form_Load() 
Dim Ad As Variant , Maas As Variant , Tel As Variant 
Dim Dogum_tarihi As Variant 
Ad="Aydın Kale" 
Maas=200000 
Tel="500-45-00" 
Dogum_tarihi=#Apr,3,1970# 
End Sub