Function ConvertAngka(ByVal angka As String)
Dim hasil As Double = 0
If IsNumeric(angka) = True Then
hasil = CDbl(angka)
Else
hasil = 0
End If
Return hasil
End Function
penggunan fungsi ini digunakan untuk mengecek. apakah variabel yg digunakan dapat di rubah menjadi angka atau tidak... jika berhasil maka fungsi ersebut akan akan menghasilkan angka, jika tidak maka fungsi akan menghasilkan 0
penggunaak fungsi di atas dapat di gunakan seperti contoh berikut :
Dim angka1 As Double = ConvertAngka(TextBox1.Text)
