For Each s As NShape In document.Descendants(NFilters.Shape2D, -1)
      If Not IsNothing(s.Tag) Then
      Dim roomInfo As RoomInfo = s.Tag
      Dim roomNumber As String = roomInfo.RoomNumber
      Dim customFontSize as Single = roomInfo.CustomFontSize

      Dim textSize As Single
      If Not String.IsNullOrEmpty(customFontSize ) Then
        textSize = Convert.ToSingle(customFontSize )
        Dim textStyle As New NTextStyle
        textStyle = s.ComposeTextStyle()
        textStyle.FontStyle = New NFontStyle("Arial", textSize)
         NStyle.SetTextStyle(s, textStyle)
       End If
    End If
   Next