Menghilangkan Format Ribuan di Visual Basic

Apakah anda pernah melakukan peyimpanan data gaji yang ada format ribuannya ???

Jika anda pernah melakukannya pasti hasilnya "error", nah kenapa bisa begitu ???

Akar permasalahannya adalah anda menciptakan tempat penyimpanan untuk gaji dengan tipe angka (sering disebut dengan long integer), sedangkan nilai gaji yang akan anda simpan ada format ribuannya (String/Teks), sehingga terjadi tipe yang tidak sama.
Padahal pada sebuah tampilan program sangatlah penting supaya gaji itu tampil dengan format ribuan karena digit dari nominal gaji sangat banyak (paling tidak 5 digit).

Jadi solusinya adalah :
Biarkanlah pada tampilan program gaji itu diberi format ribuan, tapi kita harus membuat sebuah Function untuk menghilangkan tanda ribuan yang ada (koma/titik).

Berikut ini adalah codingnya
------------
Function AmbilAngka(DataAsli As String) As Long
Hasil = ""
For i = 1 To Len(DataAsli)
If IsNumeric(Mid(DataAsli, i, 1)) = True Then
Hasil = Hasil & Mid(DataAsli, i, 1)
End If
Next i
AmbilAngka = Hasil
End Function
------------
Usahakan coding tersebut diletakkan di module sehingga bisa digunakan oleh semua Form yang ada pada project anda.

Contoh penggunaan Function tersebut adalah :
Misalkan anda memiliki sebuah textbox yang bernama "txtgaji" pada sebuah Form. Textbox tersebut berfungsi untuk menampilkan gaji dengan format ribuan, bahkan ada simbol mata uangnya juga (Rp.). Kemudian anda menciptakan textbox baru dengan nama "txtcopy" yang berfungsi untuk menampilkan data yang ada di "txtgaji" tetapi dengan menghilangkan semua karakter selain angka (tanda ribuan maupun simbol mata uang).

Maka codingnya adalah : me.txtcopy.text = AmbilAngka(me.txtgaji.text)