Membuat Fungsi Di vb.net

Membuat Fungsi Cek angka di VB.net

  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)