Qual solução a ser aplicada para que também seja possível fazer o saque com decimal na aplicação ByteBank e retornar no saldo do mesmo modo.

Link de Captura de Tela >>> http://prntscr.com/11vfxl3

 Private Sub Btm_Sacar_Click(sender As Object, e As EventArgs) Handles Btm_Sacar.Click

        ' A inserção das dua linhas abaixo é para limpar os campos a cada clique do botão.
        Txt_ResultadoSaque.Text = ""
        Txt_Saldo.Text = ""

        Dim ValorSacar As Double = Val(Txt_ValorSacar.Text)
        Dim RetornoSaque As Boolean = ContaDaGabriela.Sacar(ValorSacar)

        If RetornoSaque = False Then
            Txt_ResultadoSaque.Text = "Saque não é possível ser feito!"
        Else
            Txt_Saldo.Text = ContaDaGabriela.Saldo.ToString
            Txt_ResultadoSaque.Text = "Saque efetuado com sucesso!"
        End If

    End Sub
End Class