Mengambil Angka dari String Gabungan Angka & Huruf
Private Function CumaAngkaDoang(sData As String) As String
Dim sChar As String * 1
For i = 1 To Len(sData)
sChar = Mid(sData, i, 1)
If IsNumeric(sChar) = True Then
CumaAngkaDoang = CumaAngkaDoang & sChar
End If
Next i
End Function
