nullという状態が通常起きるものなら IsNothingで判定。通常は起きないものなら例外に任せるのが基本。
全体への影響度にもよるが例外のコストもある。

出口をひとつにするだけならこれは？
 If Not IsNothing(TreeView1.SelectedNode) Then 
  'ここにメインの処理（txt_area1.text = TreeView1.SelectedNode.Name など）
 End If
End Sub