Private Sub TestWriteable() Dim bTestWriteable As Boolean bTestWriteable = burner.TestWriteable End Sub