Tidy vb ViewModel