การใช้งาน Decimal.TryParse เพื่อช่วยในการตรวจสอบค่าที่ผู้ใช้ป้อนใน TextBox

    
Private Sub TextBox1_Leave(ByVal sender As Object, _
        ByVal e As System.EventArgs) _
        Handles TextBox1.Leave

        Dim result As Decimal
        If Not Decimal.TryParse(TextBox1.Text.Trim, result) Then
            result = 0.0
        End If
        TextBox1.Text = result.ToString("##0.00")

End Sub