Sintaks untuk Mengambil karakter teks tertentu

Jika Anda ingin mengambil karakter jenis tertentu saja, berikut contoh kode yang akan mengambil karakter angka saja dari string :

Dim Contoh As String
Dim Hasil As String
Dim c As Char

Contoh = "a1k78u!k0?"

For Each c In Contoh
  If Char.IsNumber(c) Then Hasil &= c
Next
'Hasil = 1780

Sebagai tambahan jika yang ingin diambil karakter huruf saja, kodenya seperti ini :

Dim Contoh As String
Dim Hasil As String
Dim c As Char

Contoh = "a1k78u!k0?"

For Each c In Contoh
  If Char.IsLetter(c) Then Hasil &= c
Next
'nilai Hasil = akuk