PublicFunction NTabanaCevir(ByVal Sayı AsString, ByVal Taban AsInteger) AsInteger
Dim kalan AsInteger
Dim sonuc AsString
' Sayı
'Değerler sonuca eklenir..
sonuc = sonuc & Sayı
NTabanaCevir = CInt(Microsoft.VisualBasic.StrReverse(sonuc))
EndFunction



Beyler acıklamasıyla yazdım kodları nerde hata var anlayamadım yani.baştan ilk 3 satırı kırmızı gosteriyor.
__________________