Sayıyı yazıya dönüştürücü

Dim birler, onlar, diger
Dim sayi As Double
Dim ucluk, kalan As Integer
Dim l, m, r As Byte

Private Sub Form_Load()
    birler = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
    onlar = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
    diger = Array("", "Bin", "Milyon", "Milyar", "Trilyon")
End Sub

Private Sub Text1_Change()
    sayi = Val(Text1)
    Label1 = ""
    ucluk = Int((Len(Text1) - 1) / 3)
    For i = ucluk To 0 Step -1
        kalan = Int(sayi / 1000 ^ i)
        sayi = sayi - kalan * 1000 ^ i
        If kalan = 0 Then GoTo Son
        l = Int(kalan / 100)
        m = Int((kalan - l * 100) / 10)
        r = Int(kalan - l * 100 - m * 10)
        If l > 1 Then Label1 = Label1 + birler(l) 'BirYüz olmaması için
        If l > 0 Then Label1 = Label1 & "Yüz"
        If i = 1 And kalan = 1 Then Label1 = Label1 & diger(i): GoTo Son 'BirBin olmaması için
        Label1 = Label1 & onlar(m) & birler(r) & diger(i) & Chr(13)
Son:
    Next
End Sub
BU kod textbox'a sayı harici karakter girilmesini önlüyor.Bu kod olmasaydı textBox'a harf girdiğimizde program
program cortlardı..KOLAY GELSİN:))

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0
End Sub